home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 46 / Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso / -in_the_mag- / reader_requests / pdflib / pdftcl_wrap.c < prev    next >
C/C++ Source or Header  |  1999-09-16  |  242KB  |  5,701 lines
  1. /*
  2.  * FILE : pdftcl_wrap.c
  3.  * 
  4.  * This file was automatically generated by :
  5.  * Simplified Wrapper and Interface Generator (SWIG)
  6.  * Version 1.1 (Patch 5)
  7.  * 
  8.  * Portions Copyright (c) 1995-1998
  9.  * The University of Utah and The Regents of the University of California.
  10.  * Permission is granted to distribute this file in any manner provided
  11.  * this notice remains intact.
  12.  * 
  13.  * Do not make changes to this file--changes will be lost!
  14.  *
  15.  */
  16.  
  17.  
  18. #define SWIGCODE
  19. /* Implementation : TCL 7.x */
  20.  
  21. #define INCLUDE_TCL    <tcl.h>
  22. #define INCLUDE_TK     <tk.h>
  23. #include INCLUDE_TCL
  24. #include <string.h>
  25. #include <stdlib.h>
  26. #define SWIGTCL
  27. /*
  28.  * $Header: /b2/dmb/SWIG/SWIG1.0b3/swig_lib/tcl/RCS/swigtcl.cfg,v 1.1 1996/05/22 19:47:45 beazley Exp $
  29.  * 
  30.  * swigtcl.cfg
  31.  *
  32.  * This file is modified from a platform independent file provided
  33.  * by Sun.   With any luck this will allow SWIG generated wrapper
  34.  * files to work on Unix, Windows, and Macintosh.
  35.  *
  36.  * Revision History
  37.  * $Log: swigtcl.cfg,v $
  38.  * Revision 1.1  1996/05/22 19:47:45  beazley
  39.  * Initial revision
  40.  *
  41.  *
  42.  * -- Dave Beazley, May 2, 1996.
  43.  *
  44.  *    This file is an example of a Tcl dynamically loadable extension.
  45.  *
  46.  * Copyright (c) 1996 by Sun Microsystems, Inc.
  47.  *
  48.  * See the file "license.terms" for information on usage and redistribution
  49.  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  50.  *
  51.  */
  52.  
  53. #if defined(__WIN32__)
  54. #   define WIN32_LEAN_AND_MEAN
  55. #   include <windows.h>
  56. #   undef WIN32_LEAN_AND_MEAN
  57.  
  58. /*
  59.  * VC++ has an alternate entry point called DllMain, so we need to rename
  60.  * our entry point.
  61.  */
  62.  
  63. #   if defined(_MSC_VER)
  64. #    define SWIGEXPORT(a,b) __declspec(dllexport) a b
  65. #    define DllEntryPoint DllMain
  66. #   else
  67. #    if defined(__BORLANDC__)
  68. #        define SWIGEXPORT(a,b) a _export b
  69. #    else
  70. #        define SWIGEXPORT(a,b) a b
  71. #    endif
  72. #   endif
  73. #else
  74. #   define SWIGEXPORT(a,b) a b
  75. #endif
  76.  
  77. /*
  78.  *----------------------------------------------------------------------
  79.  *
  80.  * DllEntryPoint --
  81.  *
  82.  *    This wrapper function is used by Windows to invoke the
  83.  *    initialization code for the DLL.  If we are compiling
  84.  *    with Visual C++, this routine will be renamed to DllMain.
  85.  *    routine.
  86.  *
  87.  * Results:
  88.  *    Returns TRUE;
  89.  *
  90.  * Side effects:
  91.  *    None.
  92.  *
  93.  *----------------------------------------------------------------------
  94.  */
  95.  
  96. #ifdef __WIN32__
  97. BOOL APIENTRY
  98. DllEntryPoint(HINSTANCE hInst, DWORD reason, LPVOID reserved)
  99. {
  100.     return TRUE;
  101. }
  102. #endif
  103.  
  104. /*****************************************************************************
  105.  * $Header:$
  106.  *
  107.  * swigptr.swg
  108.  *
  109.  * This file contains supporting code for the SWIG run-time type checking
  110.  * mechanism.  The following functions are available :
  111.  *
  112.  * SWIG_RegisterMapping(char *origtype, char *newtype, void *(*cast)(void *));
  113.  *
  114.  *      Registers a new type-mapping with the type-checker.  origtype is the
  115.  *      original datatype and newtype is an equivalent type.  cast is optional
  116.  *      pointer to a function to cast pointer values between types (this
  117.  *      is typically used to cast pointers from derived classes to base classes in C++)
  118.  *      
  119.  * SWIG_MakePtr(char *buffer, void *ptr, char *typestring);
  120.  *     
  121.  *      Makes a pointer string from a pointer and typestring.  The result is returned
  122.  *      in buffer which is assumed to hold enough space for the result.
  123.  *
  124.  * char * SWIG_GetPtr(char *buffer, void **ptr, char *type)
  125.  *
  126.  *      Gets a pointer value from a string.  If there is a type-mismatch, returns
  127.  *      a character string to the received type.  On success, returns NULL.
  128.  *
  129.  *
  130.  * You can remap these functions by making a file called "swigptr.swg" in
  131.  * your the same directory as the interface file you are wrapping.
  132.  *
  133.  * These functions are normally declared static, but this file can be
  134.  * can be used in a multi-module environment by redefining the symbol
  135.  * SWIGSTATIC.
  136.  *****************************************************************************/
  137.  
  138. #include <stdlib.h>
  139.  
  140. #ifdef SWIG_GLOBAL
  141. #ifdef __cplusplus
  142. #define SWIGSTATIC extern "C"
  143. #else
  144. #define SWIGSTATIC
  145. #endif
  146. #endif
  147.  
  148. #ifndef SWIGSTATIC
  149. #define SWIGSTATIC static
  150. #endif
  151.  
  152.  
  153. /* SWIG pointer structure */
  154.  
  155. typedef struct SwigPtrType {
  156.   char               *name;               /* Datatype name                  */
  157.   int                 len;                /* Length (used for optimization) */
  158.   void               *(*cast)(void *);    /* Pointer casting function       */
  159.   struct SwigPtrType *next;               /* Linked list pointer            */
  160. } SwigPtrType;
  161.  
  162. /* Pointer cache structure */
  163.  
  164. typedef struct {
  165.   int                 stat;               /* Status (valid) bit             */
  166.   SwigPtrType        *tp;                 /* Pointer to type structure      */
  167.   char                name[256];          /* Given datatype name            */
  168.   char                mapped[256];        /* Equivalent name                */
  169. } SwigCacheType;
  170.  
  171. /* Some variables  */
  172.  
  173. static int SwigPtrMax  = 64;           /* Max entries that can be currently held */
  174.                                        /* This value may be adjusted dynamically */
  175. static int SwigPtrN    = 0;            /* Current number of entries              */
  176. static int SwigPtrSort = 0;            /* Status flag indicating sort            */
  177. static int SwigStart[256];             /* Starting positions of types            */
  178.  
  179. /* Pointer table */
  180. static SwigPtrType *SwigPtrTable = 0;  /* Table containing pointer equivalences  */
  181.  
  182. /* Cached values */
  183.  
  184. #define SWIG_CACHESIZE  8
  185. #define SWIG_CACHEMASK  0x7
  186. static SwigCacheType SwigCache[SWIG_CACHESIZE];  
  187. static int SwigCacheIndex = 0;
  188. static int SwigLastCache = 0;
  189.  
  190. /* Sort comparison function */
  191. static int swigsort(const void *data1, const void *data2) {
  192.     SwigPtrType *d1 = (SwigPtrType *) data1;
  193.     SwigPtrType *d2 = (SwigPtrType *) data2;
  194.     return strcmp(d1->name,d2->name);
  195. }
  196.  
  197. /* Binary Search function */
  198. static int swigcmp(const void *key, const void *data) {
  199.   char *k = (char *) key;
  200.   SwigPtrType *d = (SwigPtrType *) data;
  201.   return strncmp(k,d->name,d->len);
  202. }
  203.  
  204. /* Register a new datatype with the type-checker */
  205.  
  206. SWIGSTATIC 
  207. void SWIG_RegisterMapping(char *origtype, char *newtype, void *(*cast)(void *)) {
  208.  
  209.   int i;
  210.   SwigPtrType *t = 0,*t1;
  211.  
  212.   /* Allocate the pointer table if necessary */
  213.  
  214.   if (!SwigPtrTable) {     
  215.     SwigPtrTable = (SwigPtrType *) malloc(SwigPtrMax*sizeof(SwigPtrType));
  216.     SwigPtrN = 0;
  217.   }
  218.   /* Grow the table */
  219.   if (SwigPtrN >= SwigPtrMax) {
  220.     SwigPtrMax = 2*SwigPtrMax;
  221.     SwigPtrTable = (SwigPtrType *) realloc((char *) SwigPtrTable,SwigPtrMax*sizeof(SwigPtrType));
  222.   }
  223.   for (i = 0; i < SwigPtrN; i++)
  224.     if (strcmp(SwigPtrTable[i].name,origtype) == 0) {
  225.       t = &SwigPtrTable[i];
  226.       break;
  227.     }
  228.   if (!t) {
  229.     t = &SwigPtrTable[SwigPtrN];
  230.     t->name = origtype;
  231.     t->len = strlen(t->name);
  232.     t->cast = 0;
  233.     t->next = 0;
  234.     SwigPtrN++;
  235.   }
  236.  
  237.   /* Check for existing entry */
  238.  
  239.   while (t->next) {
  240.     if ((strcmp(t->name,newtype) == 0)) {
  241.       if (cast) t->cast = cast;
  242.       return;
  243.     }
  244.     t = t->next;
  245.   }
  246.   
  247.   /* Now place entry (in sorted order) */
  248.  
  249.   t1 = (SwigPtrType *) malloc(sizeof(SwigPtrType));
  250.   t1->name = newtype;
  251.   t1->len = strlen(t1->name);
  252.   t1->cast = cast;
  253.   t1->next = 0;            
  254.   t->next = t1;           
  255.   SwigPtrSort = 0;
  256. }
  257.  
  258. /* Make a pointer value string */
  259.  
  260. SWIGSTATIC 
  261. void SWIG_MakePtr(char *_c, const void *_ptr, char *type) {
  262.   static char _hex[16] =
  263.   {'0', '1', '2', '3', '4', '5', '6', '7', '8', '9',
  264.    'a', 'b', 'c', 'd', 'e', 'f'};
  265.   unsigned long _p, _s;
  266.   char _result[20], *_r;    /* Note : a 64-bit hex number = 16 digits */
  267.   _r = _result;
  268.   _p = (unsigned long) _ptr;
  269.   if (_p > 0) {
  270.     while (_p > 0) {
  271.       _s = _p & 0xf;
  272.       *(_r++) = _hex[_s];
  273.       _p = _p >> 4;
  274.     }
  275.     *_r = '_';
  276.     while (_r >= _result)
  277.       *(_c++) = *(_r--);
  278.   } else {
  279.     strcpy (_c, "NULL");
  280.   }
  281.   if (_ptr)
  282.     strcpy (_c, type);
  283. }
  284.  
  285. /* Define for backwards compatibility */
  286.  
  287. #define _swig_make_hex   SWIG_MakePtr 
  288.  
  289. /* Function for getting a pointer value */
  290.  
  291. SWIGSTATIC 
  292. char *SWIG_GetPtr(char *_c, void **ptr, char *_t)
  293. {
  294.   unsigned long _p;
  295.   char temp_type[256];
  296.   char *name;
  297.   int  i, len;
  298.   SwigPtrType *sp,*tp;
  299.   SwigCacheType *cache;
  300.   int  start, end;
  301.   _p = 0;
  302.  
  303.   /* Pointer values must start with leading underscore */
  304.   if (*_c == '_') {
  305.       _c++;
  306.       /* Extract hex value from pointer */
  307.       while (*_c) {
  308.       if ((*_c >= '0') && (*_c <= '9'))
  309.         _p = (_p << 4) + (*_c - '0');
  310.       else if ((*_c >= 'a') && (*_c <= 'f'))
  311.         _p = (_p << 4) + ((*_c - 'a') + 10);
  312.       else
  313.         break;
  314.       _c++;
  315.       }
  316.  
  317.       if (_t) {
  318.     if (strcmp(_t,_c)) { 
  319.       if (!SwigPtrSort) {
  320.         qsort((void *) SwigPtrTable, SwigPtrN, sizeof(SwigPtrType), swigsort); 
  321.         for (i = 0; i < 256; i++) {
  322.           SwigStart[i] = SwigPtrN;
  323.         }
  324.         for (i = SwigPtrN-1; i >= 0; i--) {
  325.           SwigStart[(int) (SwigPtrTable[i].name[1])] = i;
  326.         }
  327.         for (i = 255; i >= 1; i--) {
  328.           if (SwigStart[i-1] > SwigStart[i])
  329.         SwigStart[i-1] = SwigStart[i];
  330.         }
  331.         SwigPtrSort = 1;
  332.         for (i = 0; i < SWIG_CACHESIZE; i++)  
  333.           SwigCache[i].stat = 0;
  334.       }
  335.       
  336.       /* First check cache for matches.  Uses last cache value as starting point */
  337.       cache = &SwigCache[SwigLastCache];
  338.       for (i = 0; i < SWIG_CACHESIZE; i++) {
  339.         if (cache->stat) {
  340.           if (strcmp(_t,cache->name) == 0) {
  341.         if (strcmp(_c,cache->mapped) == 0) {
  342.           cache->stat++;
  343.           *ptr = (void *) _p;
  344.           if (cache->tp->cast) *ptr = (*(cache->tp->cast))(*ptr);
  345.           return (char *) 0;
  346.         }
  347.           }
  348.         }
  349.         SwigLastCache = (SwigLastCache+1) & SWIG_CACHEMASK;
  350.         if (!SwigLastCache) cache = SwigCache;
  351.         else cache++;
  352.       }
  353.       /* We have a type mismatch.  Will have to look through our type
  354.          mapping table to figure out whether or not we can accept this datatype */
  355.  
  356.       start = SwigStart[(int) _t[1]];
  357.       end = SwigStart[(int) _t[1]+1];
  358.       sp = &SwigPtrTable[start];
  359.       while (start < end) {
  360.         if (swigcmp(_t,sp) == 0) break;
  361.         sp++;
  362.         start++;
  363.       }
  364.       if (start >= end) sp = 0;
  365.       /* Try to find a match for this */
  366.       if (sp) {
  367.         while (swigcmp(_t,sp) == 0) {
  368.           name = sp->name;
  369.           len = sp->len;
  370.           tp = sp->next;
  371.           /* Try to find entry for our given datatype */
  372.           while(tp) {
  373.         if (tp->len >= 255) {
  374.           return _c;
  375.         }
  376.         strcpy(temp_type,tp->name);
  377.         strncat(temp_type,_t+len,255-tp->len);
  378.         if (strcmp(_c,temp_type) == 0) {
  379.           
  380.           strcpy(SwigCache[SwigCacheIndex].mapped,_c);
  381.           strcpy(SwigCache[SwigCacheIndex].name,_t);
  382.           SwigCache[SwigCacheIndex].stat = 1;
  383.           SwigCache[SwigCacheIndex].tp = tp;
  384.           SwigCacheIndex = SwigCacheIndex & SWIG_CACHEMASK;
  385.           
  386.           /* Get pointer value */
  387.           *ptr = (void *) _p;
  388.           if (tp->cast) *ptr = (*(tp->cast))(*ptr);
  389.           return (char *) 0;
  390.         }
  391.         tp = tp->next;
  392.           }
  393.           sp++;
  394.           /* Hmmm. Didn't find it this time */
  395.         }
  396.       }
  397.       /* Didn't find any sort of match for this data.  
  398.          Get the pointer value and return the received type */
  399.       *ptr = (void *) _p;
  400.       return _c;
  401.     } else {
  402.       /* Found a match on the first try.  Return pointer value */
  403.       *ptr = (void *) _p;
  404.       return (char *) 0;
  405.     }
  406.       } else {
  407.     /* No type specified.  Good luck */
  408.     *ptr = (void *) _p;
  409.     return (char *) 0;
  410.       }
  411.   } else {
  412.     if (strcmp (_c, "NULL") == 0) {
  413.     *ptr = (void *) 0;
  414.     return (char *) 0;
  415.     }
  416.     *ptr = (void *) 0;    
  417.     return _c;
  418.   }
  419. }
  420.  
  421. /* Compatibility mode */
  422.  
  423. #define _swig_get_hex  SWIG_GetPtr
  424.  
  425. #define SWIG_init    Pdflib_Init
  426. #define SWIG_name    "pdflib"
  427. #define SWIG_prefix  ""
  428. #define SWIG_namespace ""
  429.  
  430. #ifdef __cplusplus
  431. extern "C" {
  432. #endif
  433. #ifdef MAC_TCL
  434. #pragma export on
  435. #endif
  436. SWIGEXPORT(int,Pdflib_Init)(Tcl_Interp *);
  437. #ifdef MAC_TCL
  438. #pragma export off
  439. #endif
  440. #ifdef __cplusplus
  441. }
  442. #endif
  443.  
  444. #include "pdf.h"
  445. static char * _wrap_const_PDFLIB_VERSION = "PDFlib V0.6 (C) Thomas Merz 1997-98";
  446. static char * _wrap_const_PDF_DEFAULT_FONT_PATH = "./fonts";
  447. static int  _wrap_const_false = 0;
  448. static int  _wrap_const_true = 1;
  449. static int  _wrap_const_PDF_INFO = 1;
  450. static int  _wrap_const_PDF_WARN = 2;
  451. static int  _wrap_const_PDF_FATAL = 3;
  452. static int  _wrap_const_PDF_INTERNAL = 4;
  453. static int  _wrap_const_PDF1_0 = PDF1_0;
  454. static int  _wrap_const_PDF1_1 = PDF1_1;
  455. static int  _wrap_const_PDF1_2 = PDF1_2;
  456. static int  _wrap_const_builtin = builtin;
  457. static int  _wrap_const_pdfdoc = pdfdoc;
  458. static int  _wrap_const_macroman = macroman;
  459. static int  _wrap_const_macexpert = macexpert;
  460. static int  _wrap_const_winansi = winansi;
  461. static int  _wrap_const_encoding_count = encoding_count;
  462. static int  _wrap_const_none = none;
  463. static int  _wrap_const_lzw = lzw;
  464. static int  _wrap_const_runlength = runlength;
  465. static int  _wrap_const_ccitt = ccitt;
  466. static int  _wrap_const_dct = dct;
  467. static int  _wrap_const_flate = flate;
  468. static int  _wrap_const_compression_count = compression_count;
  469. static int  _wrap_const_trans_none = trans_none;
  470. static int  _wrap_const_trans_split = trans_split;
  471. static int  _wrap_const_trans_blinds = trans_blinds;
  472. static int  _wrap_const_trans_box = trans_box;
  473. static int  _wrap_const_trans_wipe = trans_wipe;
  474. static int  _wrap_const_trans_dissolve = trans_dissolve;
  475. static int  _wrap_const_trans_glitter = trans_glitter;
  476. static int  _wrap_const_trans_replace = trans_replace;
  477. static int  _wrap_const_transition_count = transition_count;
  478. static int  _wrap_const_DeviceGray = DeviceGray;
  479. static int  _wrap_const_DeviceRGB = DeviceRGB;
  480. static int  _wrap_const_DeviceCMYK = DeviceCMYK;
  481. static int  _wrap_const_CalGray = CalGray;
  482. static int  _wrap_const_CalRGB = CalRGB;
  483. static int  _wrap_const_Lab = Lab;
  484. static int  _wrap_const_Indexed = Indexed;
  485. static int  _wrap_const_Pattern = Pattern;
  486. static int  _wrap_const_Separation = Separation;
  487. static int  _wrap_const_colorspace_count = colorspace_count;
  488. extern PDF_pagesize  a0; 
  489. static PDF_pagesize * a0_set(PDF_pagesize * val) {
  490.      a0 = *(val);
  491.      return (PDF_pagesize *) &a0;
  492. }
  493. static PDF_pagesize * a0_get() { 
  494.      return (PDF_pagesize *) &a0;
  495. }
  496. extern PDF_pagesize  a1; 
  497. static PDF_pagesize * a1_set(PDF_pagesize * val) {
  498.      a1 = *(val);
  499.      return (PDF_pagesize *) &a1;
  500. }
  501. static PDF_pagesize * a1_get() { 
  502.      return (PDF_pagesize *) &a1;
  503. }
  504. extern PDF_pagesize  a2; 
  505. static PDF_pagesize * a2_set(PDF_pagesize * val) {
  506.      a2 = *(val);
  507.      return (PDF_pagesize *) &a2;
  508. }
  509. static PDF_pagesize * a2_get() { 
  510.      return (PDF_pagesize *) &a2;
  511. }
  512. extern PDF_pagesize  a3; 
  513. static PDF_pagesize * a3_set(PDF_pagesize * val) {
  514.      a3 = *(val);
  515.      return (PDF_pagesize *) &a3;
  516. }
  517. static PDF_pagesize * a3_get() { 
  518.      return (PDF_pagesize *) &a3;
  519. }
  520. extern PDF_pagesize  a4; 
  521. static PDF_pagesize * a4_set(PDF_pagesize * val) {
  522.      a4 = *(val);
  523.      return (PDF_pagesize *) &a4;
  524. }
  525. static PDF_pagesize * a4_get() { 
  526.      return (PDF_pagesize *) &a4;
  527. }
  528. extern PDF_pagesize  a5; 
  529. static PDF_pagesize * a5_set(PDF_pagesize * val) {
  530.      a5 = *(val);
  531.      return (PDF_pagesize *) &a5;
  532. }
  533. static PDF_pagesize * a5_get() { 
  534.      return (PDF_pagesize *) &a5;
  535. }
  536. extern PDF_pagesize  a6; 
  537. static PDF_pagesize * a6_set(PDF_pagesize * val) {
  538.      a6 = *(val);
  539.      return (PDF_pagesize *) &a6;
  540. }
  541. static PDF_pagesize * a6_get() { 
  542.      return (PDF_pagesize *) &a6;
  543. }
  544. extern PDF_pagesize  b5; 
  545. static PDF_pagesize * b5_set(PDF_pagesize * val) {
  546.      b5 = *(val);
  547.      return (PDF_pagesize *) &b5;
  548. }
  549. static PDF_pagesize * b5_get() { 
  550.      return (PDF_pagesize *) &b5;
  551. }
  552. extern PDF_pagesize  letter; 
  553. static PDF_pagesize * letter_set(PDF_pagesize * val) {
  554.      letter = *(val);
  555.      return (PDF_pagesize *) &letter;
  556. }
  557. static PDF_pagesize * letter_get() { 
  558.      return (PDF_pagesize *) &letter;
  559. }
  560. extern PDF_pagesize  legal; 
  561. static PDF_pagesize * legal_set(PDF_pagesize * val) {
  562.      legal = *(val);
  563.      return (PDF_pagesize *) &legal;
  564. }
  565. static PDF_pagesize * legal_get() { 
  566.      return (PDF_pagesize *) &legal;
  567. }
  568. extern PDF_pagesize  ledger; 
  569. static PDF_pagesize * ledger_set(PDF_pagesize * val) {
  570.      ledger = *(val);
  571.      return (PDF_pagesize *) &ledger;
  572. }
  573. static PDF_pagesize * ledger_get() { 
  574.      return (PDF_pagesize *) &ledger;
  575. }
  576. extern PDF_pagesize  p11x17; 
  577. static PDF_pagesize * p11x17_set(PDF_pagesize * val) {
  578.      p11x17 = *(val);
  579.      return (PDF_pagesize *) &p11x17;
  580. }
  581. static PDF_pagesize * p11x17_get() { 
  582.      return (PDF_pagesize *) &p11x17;
  583. }
  584. static char * _wrap_const_PDF_info_Producer = "PDF_info::Producer";
  585. static int _wrap_a0_set(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  586.  
  587.     PDF_pagesize * _result;
  588.     PDF_pagesize * _arg0;
  589.  
  590.     clientData = clientData; argv = argv;
  591.     if ((argc < 2) || (argc > 2)) {
  592.         Tcl_SetResult(interp, "Wrong # args. a0_set { PDF_pagesize * } ",TCL_STATIC);
  593.         return TCL_ERROR;
  594.     }
  595.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_pagesize_p")) {
  596.         Tcl_SetResult(interp, "Type error in argument 1 of a0_set. Expected _PDF_pagesize_p, received ", TCL_STATIC);
  597.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  598.         return TCL_ERROR;
  599.     }
  600.     _result = (PDF_pagesize *)a0_set(_arg0);
  601.     SWIG_MakePtr(interp->result, (void *) _result,"_PDF_pagesize_p");
  602.     return TCL_OK;
  603. }
  604. static int _wrap_a0_get(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  605.  
  606.     PDF_pagesize * _result;
  607.  
  608.     clientData = clientData; argv = argv;
  609.     if ((argc < 1) || (argc > 1)) {
  610.         Tcl_SetResult(interp, "Wrong # args. a0_get ",TCL_STATIC);
  611.         return TCL_ERROR;
  612.     }
  613.     _result = (PDF_pagesize *)a0_get();
  614.     SWIG_MakePtr(interp->result, (void *) _result,"_PDF_pagesize_p");
  615.     return TCL_OK;
  616. }
  617. static int _wrap_a1_set(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  618.  
  619.     PDF_pagesize * _result;
  620.     PDF_pagesize * _arg0;
  621.  
  622.     clientData = clientData; argv = argv;
  623.     if ((argc < 2) || (argc > 2)) {
  624.         Tcl_SetResult(interp, "Wrong # args. a1_set { PDF_pagesize * } ",TCL_STATIC);
  625.         return TCL_ERROR;
  626.     }
  627.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_pagesize_p")) {
  628.         Tcl_SetResult(interp, "Type error in argument 1 of a1_set. Expected _PDF_pagesize_p, received ", TCL_STATIC);
  629.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  630.         return TCL_ERROR;
  631.     }
  632.     _result = (PDF_pagesize *)a1_set(_arg0);
  633.     SWIG_MakePtr(interp->result, (void *) _result,"_PDF_pagesize_p");
  634.     return TCL_OK;
  635. }
  636. static int _wrap_a1_get(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  637.  
  638.     PDF_pagesize * _result;
  639.  
  640.     clientData = clientData; argv = argv;
  641.     if ((argc < 1) || (argc > 1)) {
  642.         Tcl_SetResult(interp, "Wrong # args. a1_get ",TCL_STATIC);
  643.         return TCL_ERROR;
  644.     }
  645.     _result = (PDF_pagesize *)a1_get();
  646.     SWIG_MakePtr(interp->result, (void *) _result,"_PDF_pagesize_p");
  647.     return TCL_OK;
  648. }
  649. static int _wrap_a2_set(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  650.  
  651.     PDF_pagesize * _result;
  652.     PDF_pagesize * _arg0;
  653.  
  654.     clientData = clientData; argv = argv;
  655.     if ((argc < 2) || (argc > 2)) {
  656.         Tcl_SetResult(interp, "Wrong # args. a2_set { PDF_pagesize * } ",TCL_STATIC);
  657.         return TCL_ERROR;
  658.     }
  659.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_pagesize_p")) {
  660.         Tcl_SetResult(interp, "Type error in argument 1 of a2_set. Expected _PDF_pagesize_p, received ", TCL_STATIC);
  661.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  662.         return TCL_ERROR;
  663.     }
  664.     _result = (PDF_pagesize *)a2_set(_arg0);
  665.     SWIG_MakePtr(interp->result, (void *) _result,"_PDF_pagesize_p");
  666.     return TCL_OK;
  667. }
  668. static int _wrap_a2_get(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  669.  
  670.     PDF_pagesize * _result;
  671.  
  672.     clientData = clientData; argv = argv;
  673.     if ((argc < 1) || (argc > 1)) {
  674.         Tcl_SetResult(interp, "Wrong # args. a2_get ",TCL_STATIC);
  675.         return TCL_ERROR;
  676.     }
  677.     _result = (PDF_pagesize *)a2_get();
  678.     SWIG_MakePtr(interp->result, (void *) _result,"_PDF_pagesize_p");
  679.     return TCL_OK;
  680. }
  681. static int _wrap_a3_set(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  682.  
  683.     PDF_pagesize * _result;
  684.     PDF_pagesize * _arg0;
  685.  
  686.     clientData = clientData; argv = argv;
  687.     if ((argc < 2) || (argc > 2)) {
  688.         Tcl_SetResult(interp, "Wrong # args. a3_set { PDF_pagesize * } ",TCL_STATIC);
  689.         return TCL_ERROR;
  690.     }
  691.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_pagesize_p")) {
  692.         Tcl_SetResult(interp, "Type error in argument 1 of a3_set. Expected _PDF_pagesize_p, received ", TCL_STATIC);
  693.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  694.         return TCL_ERROR;
  695.     }
  696.     _result = (PDF_pagesize *)a3_set(_arg0);
  697.     SWIG_MakePtr(interp->result, (void *) _result,"_PDF_pagesize_p");
  698.     return TCL_OK;
  699. }
  700. static int _wrap_a3_get(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  701.  
  702.     PDF_pagesize * _result;
  703.  
  704.     clientData = clientData; argv = argv;
  705.     if ((argc < 1) || (argc > 1)) {
  706.         Tcl_SetResult(interp, "Wrong # args. a3_get ",TCL_STATIC);
  707.         return TCL_ERROR;
  708.     }
  709.     _result = (PDF_pagesize *)a3_get();
  710.     SWIG_MakePtr(interp->result, (void *) _result,"_PDF_pagesize_p");
  711.     return TCL_OK;
  712. }
  713. static int _wrap_a4_set(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  714.  
  715.     PDF_pagesize * _result;
  716.     PDF_pagesize * _arg0;
  717.  
  718.     clientData = clientData; argv = argv;
  719.     if ((argc < 2) || (argc > 2)) {
  720.         Tcl_SetResult(interp, "Wrong # args. a4_set { PDF_pagesize * } ",TCL_STATIC);
  721.         return TCL_ERROR;
  722.     }
  723.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_pagesize_p")) {
  724.         Tcl_SetResult(interp, "Type error in argument 1 of a4_set. Expected _PDF_pagesize_p, received ", TCL_STATIC);
  725.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  726.         return TCL_ERROR;
  727.     }
  728.     _result = (PDF_pagesize *)a4_set(_arg0);
  729.     SWIG_MakePtr(interp->result, (void *) _result,"_PDF_pagesize_p");
  730.     return TCL_OK;
  731. }
  732. static int _wrap_a4_get(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  733.  
  734.     PDF_pagesize * _result;
  735.  
  736.     clientData = clientData; argv = argv;
  737.     if ((argc < 1) || (argc > 1)) {
  738.         Tcl_SetResult(interp, "Wrong # args. a4_get ",TCL_STATIC);
  739.         return TCL_ERROR;
  740.     }
  741.     _result = (PDF_pagesize *)a4_get();
  742.     SWIG_MakePtr(interp->result, (void *) _result,"_PDF_pagesize_p");
  743.     return TCL_OK;
  744. }
  745. static int _wrap_a5_set(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  746.  
  747.     PDF_pagesize * _result;
  748.     PDF_pagesize * _arg0;
  749.  
  750.     clientData = clientData; argv = argv;
  751.     if ((argc < 2) || (argc > 2)) {
  752.         Tcl_SetResult(interp, "Wrong # args. a5_set { PDF_pagesize * } ",TCL_STATIC);
  753.         return TCL_ERROR;
  754.     }
  755.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_pagesize_p")) {
  756.         Tcl_SetResult(interp, "Type error in argument 1 of a5_set. Expected _PDF_pagesize_p, received ", TCL_STATIC);
  757.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  758.         return TCL_ERROR;
  759.     }
  760.     _result = (PDF_pagesize *)a5_set(_arg0);
  761.     SWIG_MakePtr(interp->result, (void *) _result,"_PDF_pagesize_p");
  762.     return TCL_OK;
  763. }
  764. static int _wrap_a5_get(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  765.  
  766.     PDF_pagesize * _result;
  767.  
  768.     clientData = clientData; argv = argv;
  769.     if ((argc < 1) || (argc > 1)) {
  770.         Tcl_SetResult(interp, "Wrong # args. a5_get ",TCL_STATIC);
  771.         return TCL_ERROR;
  772.     }
  773.     _result = (PDF_pagesize *)a5_get();
  774.     SWIG_MakePtr(interp->result, (void *) _result,"_PDF_pagesize_p");
  775.     return TCL_OK;
  776. }
  777. static int _wrap_a6_set(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  778.  
  779.     PDF_pagesize * _result;
  780.     PDF_pagesize * _arg0;
  781.  
  782.     clientData = clientData; argv = argv;
  783.     if ((argc < 2) || (argc > 2)) {
  784.         Tcl_SetResult(interp, "Wrong # args. a6_set { PDF_pagesize * } ",TCL_STATIC);
  785.         return TCL_ERROR;
  786.     }
  787.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_pagesize_p")) {
  788.         Tcl_SetResult(interp, "Type error in argument 1 of a6_set. Expected _PDF_pagesize_p, received ", TCL_STATIC);
  789.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  790.         return TCL_ERROR;
  791.     }
  792.     _result = (PDF_pagesize *)a6_set(_arg0);
  793.     SWIG_MakePtr(interp->result, (void *) _result,"_PDF_pagesize_p");
  794.     return TCL_OK;
  795. }
  796. static int _wrap_a6_get(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  797.  
  798.     PDF_pagesize * _result;
  799.  
  800.     clientData = clientData; argv = argv;
  801.     if ((argc < 1) || (argc > 1)) {
  802.         Tcl_SetResult(interp, "Wrong # args. a6_get ",TCL_STATIC);
  803.         return TCL_ERROR;
  804.     }
  805.     _result = (PDF_pagesize *)a6_get();
  806.     SWIG_MakePtr(interp->result, (void *) _result,"_PDF_pagesize_p");
  807.     return TCL_OK;
  808. }
  809. static int _wrap_b5_set(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  810.  
  811.     PDF_pagesize * _result;
  812.     PDF_pagesize * _arg0;
  813.  
  814.     clientData = clientData; argv = argv;
  815.     if ((argc < 2) || (argc > 2)) {
  816.         Tcl_SetResult(interp, "Wrong # args. b5_set { PDF_pagesize * } ",TCL_STATIC);
  817.         return TCL_ERROR;
  818.     }
  819.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_pagesize_p")) {
  820.         Tcl_SetResult(interp, "Type error in argument 1 of b5_set. Expected _PDF_pagesize_p, received ", TCL_STATIC);
  821.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  822.         return TCL_ERROR;
  823.     }
  824.     _result = (PDF_pagesize *)b5_set(_arg0);
  825.     SWIG_MakePtr(interp->result, (void *) _result,"_PDF_pagesize_p");
  826.     return TCL_OK;
  827. }
  828. static int _wrap_b5_get(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  829.  
  830.     PDF_pagesize * _result;
  831.  
  832.     clientData = clientData; argv = argv;
  833.     if ((argc < 1) || (argc > 1)) {
  834.         Tcl_SetResult(interp, "Wrong # args. b5_get ",TCL_STATIC);
  835.         return TCL_ERROR;
  836.     }
  837.     _result = (PDF_pagesize *)b5_get();
  838.     SWIG_MakePtr(interp->result, (void *) _result,"_PDF_pagesize_p");
  839.     return TCL_OK;
  840. }
  841. static int _wrap_letter_set(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  842.  
  843.     PDF_pagesize * _result;
  844.     PDF_pagesize * _arg0;
  845.  
  846.     clientData = clientData; argv = argv;
  847.     if ((argc < 2) || (argc > 2)) {
  848.         Tcl_SetResult(interp, "Wrong # args. letter_set { PDF_pagesize * } ",TCL_STATIC);
  849.         return TCL_ERROR;
  850.     }
  851.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_pagesize_p")) {
  852.         Tcl_SetResult(interp, "Type error in argument 1 of letter_set. Expected _PDF_pagesize_p, received ", TCL_STATIC);
  853.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  854.         return TCL_ERROR;
  855.     }
  856.     _result = (PDF_pagesize *)letter_set(_arg0);
  857.     SWIG_MakePtr(interp->result, (void *) _result,"_PDF_pagesize_p");
  858.     return TCL_OK;
  859. }
  860. static int _wrap_letter_get(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  861.  
  862.     PDF_pagesize * _result;
  863.  
  864.     clientData = clientData; argv = argv;
  865.     if ((argc < 1) || (argc > 1)) {
  866.         Tcl_SetResult(interp, "Wrong # args. letter_get ",TCL_STATIC);
  867.         return TCL_ERROR;
  868.     }
  869.     _result = (PDF_pagesize *)letter_get();
  870.     SWIG_MakePtr(interp->result, (void *) _result,"_PDF_pagesize_p");
  871.     return TCL_OK;
  872. }
  873. static int _wrap_legal_set(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  874.  
  875.     PDF_pagesize * _result;
  876.     PDF_pagesize * _arg0;
  877.  
  878.     clientData = clientData; argv = argv;
  879.     if ((argc < 2) || (argc > 2)) {
  880.         Tcl_SetResult(interp, "Wrong # args. legal_set { PDF_pagesize * } ",TCL_STATIC);
  881.         return TCL_ERROR;
  882.     }
  883.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_pagesize_p")) {
  884.         Tcl_SetResult(interp, "Type error in argument 1 of legal_set. Expected _PDF_pagesize_p, received ", TCL_STATIC);
  885.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  886.         return TCL_ERROR;
  887.     }
  888.     _result = (PDF_pagesize *)legal_set(_arg0);
  889.     SWIG_MakePtr(interp->result, (void *) _result,"_PDF_pagesize_p");
  890.     return TCL_OK;
  891. }
  892. static int _wrap_legal_get(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  893.  
  894.     PDF_pagesize * _result;
  895.  
  896.     clientData = clientData; argv = argv;
  897.     if ((argc < 1) || (argc > 1)) {
  898.         Tcl_SetResult(interp, "Wrong # args. legal_get ",TCL_STATIC);
  899.         return TCL_ERROR;
  900.     }
  901.     _result = (PDF_pagesize *)legal_get();
  902.     SWIG_MakePtr(interp->result, (void *) _result,"_PDF_pagesize_p");
  903.     return TCL_OK;
  904. }
  905. static int _wrap_ledger_set(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  906.  
  907.     PDF_pagesize * _result;
  908.     PDF_pagesize * _arg0;
  909.  
  910.     clientData = clientData; argv = argv;
  911.     if ((argc < 2) || (argc > 2)) {
  912.         Tcl_SetResult(interp, "Wrong # args. ledger_set { PDF_pagesize * } ",TCL_STATIC);
  913.         return TCL_ERROR;
  914.     }
  915.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_pagesize_p")) {
  916.         Tcl_SetResult(interp, "Type error in argument 1 of ledger_set. Expected _PDF_pagesize_p, received ", TCL_STATIC);
  917.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  918.         return TCL_ERROR;
  919.     }
  920.     _result = (PDF_pagesize *)ledger_set(_arg0);
  921.     SWIG_MakePtr(interp->result, (void *) _result,"_PDF_pagesize_p");
  922.     return TCL_OK;
  923. }
  924. static int _wrap_ledger_get(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  925.  
  926.     PDF_pagesize * _result;
  927.  
  928.     clientData = clientData; argv = argv;
  929.     if ((argc < 1) || (argc > 1)) {
  930.         Tcl_SetResult(interp, "Wrong # args. ledger_get ",TCL_STATIC);
  931.         return TCL_ERROR;
  932.     }
  933.     _result = (PDF_pagesize *)ledger_get();
  934.     SWIG_MakePtr(interp->result, (void *) _result,"_PDF_pagesize_p");
  935.     return TCL_OK;
  936. }
  937. static int _wrap_p11x17_set(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  938.  
  939.     PDF_pagesize * _result;
  940.     PDF_pagesize * _arg0;
  941.  
  942.     clientData = clientData; argv = argv;
  943.     if ((argc < 2) || (argc > 2)) {
  944.         Tcl_SetResult(interp, "Wrong # args. p11x17_set { PDF_pagesize * } ",TCL_STATIC);
  945.         return TCL_ERROR;
  946.     }
  947.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_pagesize_p")) {
  948.         Tcl_SetResult(interp, "Type error in argument 1 of p11x17_set. Expected _PDF_pagesize_p, received ", TCL_STATIC);
  949.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  950.         return TCL_ERROR;
  951.     }
  952.     _result = (PDF_pagesize *)p11x17_set(_arg0);
  953.     SWIG_MakePtr(interp->result, (void *) _result,"_PDF_pagesize_p");
  954.     return TCL_OK;
  955. }
  956. static int _wrap_p11x17_get(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  957.  
  958.     PDF_pagesize * _result;
  959.  
  960.     clientData = clientData; argv = argv;
  961.     if ((argc < 1) || (argc > 1)) {
  962.         Tcl_SetResult(interp, "Wrong # args. p11x17_get ",TCL_STATIC);
  963.         return TCL_ERROR;
  964.     }
  965.     _result = (PDF_pagesize *)p11x17_get();
  966.     SWIG_MakePtr(interp->result, (void *) _result,"_PDF_pagesize_p");
  967.     return TCL_OK;
  968. }
  969. static int _wrap_PDF_get_info(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  970.  
  971.     PDF_info * _result;
  972.  
  973.     clientData = clientData; argv = argv;
  974.     if ((argc < 1) || (argc > 1)) {
  975.         Tcl_SetResult(interp, "Wrong # args. PDF_get_info ",TCL_STATIC);
  976.         return TCL_ERROR;
  977.     }
  978.     _result = (PDF_info *)PDF_get_info();
  979.     SWIG_MakePtr(interp->result, (void *) _result,"_PDF_info_p");
  980.     return TCL_OK;
  981. }
  982. static int _wrap_PDF_open(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  983.  
  984.     PDF * _result;
  985.     FILE * _arg0;
  986.     PDF_info * _arg1;
  987.  
  988.     clientData = clientData; argv = argv;
  989.     if ((argc < 3) || (argc > 3)) {
  990.         Tcl_SetResult(interp, "Wrong # args. PDF_open fp info ",TCL_STATIC);
  991.         return TCL_ERROR;
  992.     }
  993.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_FILE_p")) {
  994.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_open. Expected _FILE_p, received ", TCL_STATIC);
  995.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  996.         return TCL_ERROR;
  997.     }
  998.     if (SWIG_GetPtr(argv[2],(void **) &_arg1,"_PDF_info_p")) {
  999.         Tcl_SetResult(interp, "Type error in argument 2 of PDF_open. Expected _PDF_info_p, received ", TCL_STATIC);
  1000.         Tcl_AppendResult(interp, argv[2], (char *) NULL);
  1001.         return TCL_ERROR;
  1002.     }
  1003.     _result = (PDF *)PDF_open(_arg0,_arg1);
  1004.     SWIG_MakePtr(interp->result, (void *) _result,"_PDF_p");
  1005.     return TCL_OK;
  1006. }
  1007. static int _wrap_PDF_close(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  1008.  
  1009.     PDF * _arg0;
  1010.  
  1011.     clientData = clientData; argv = argv;
  1012.     if ((argc < 2) || (argc > 2)) {
  1013.         Tcl_SetResult(interp, "Wrong # args. PDF_close p ",TCL_STATIC);
  1014.         return TCL_ERROR;
  1015.     }
  1016.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_p")) {
  1017.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_close. Expected _PDF_p, received ", TCL_STATIC);
  1018.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  1019.         return TCL_ERROR;
  1020.     }
  1021.     PDF_close(_arg0);
  1022.     return TCL_OK;
  1023. }
  1024. static int _wrap_PDF_begin_page(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  1025.  
  1026.     PDF * _arg0;
  1027.     float  _arg1;
  1028.     float  _arg2;
  1029.  
  1030.     clientData = clientData; argv = argv;
  1031.     if ((argc < 4) || (argc > 4)) {
  1032.         Tcl_SetResult(interp, "Wrong # args. PDF_begin_page p height width ",TCL_STATIC);
  1033.         return TCL_ERROR;
  1034.     }
  1035.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_p")) {
  1036.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_begin_page. Expected _PDF_p, received ", TCL_STATIC);
  1037.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  1038.         return TCL_ERROR;
  1039.     }
  1040.     _arg1 = (float ) atof(argv[2]);
  1041.     _arg2 = (float ) atof(argv[3]);
  1042.     PDF_begin_page(_arg0,_arg1,_arg2);
  1043.     return TCL_OK;
  1044. }
  1045. static int _wrap_PDF_end_page(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  1046.  
  1047.     PDF * _arg0;
  1048.  
  1049.     clientData = clientData; argv = argv;
  1050.     if ((argc < 2) || (argc > 2)) {
  1051.         Tcl_SetResult(interp, "Wrong # args. PDF_end_page p ",TCL_STATIC);
  1052.         return TCL_ERROR;
  1053.     }
  1054.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_p")) {
  1055.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_end_page. Expected _PDF_p, received ", TCL_STATIC);
  1056.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  1057.         return TCL_ERROR;
  1058.     }
  1059.     PDF_end_page(_arg0);
  1060.     return TCL_OK;
  1061. }
  1062. static int _wrap_PDF_set_transition(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  1063.  
  1064.     PDF * _arg0;
  1065.     PDF_transition  _arg1;
  1066.  
  1067.     clientData = clientData; argv = argv;
  1068.     if ((argc < 3) || (argc > 3)) {
  1069.         Tcl_SetResult(interp, "Wrong # args. PDF_set_transition p t ",TCL_STATIC);
  1070.         return TCL_ERROR;
  1071.     }
  1072.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_p")) {
  1073.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_set_transition. Expected _PDF_p, received ", TCL_STATIC);
  1074.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  1075.         return TCL_ERROR;
  1076.     }
  1077.     _arg1 = (PDF_transition ) atol(argv[2]);
  1078.     PDF_set_transition(_arg0,_arg1);
  1079.     return TCL_OK;
  1080. }
  1081. static int _wrap_PDF_set_duration(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  1082.  
  1083.     PDF * _arg0;
  1084.     float  _arg1;
  1085.  
  1086.     clientData = clientData; argv = argv;
  1087.     if ((argc < 3) || (argc > 3)) {
  1088.         Tcl_SetResult(interp, "Wrong # args. PDF_set_duration p t ",TCL_STATIC);
  1089.         return TCL_ERROR;
  1090.     }
  1091.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_p")) {
  1092.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_set_duration. Expected _PDF_p, received ", TCL_STATIC);
  1093.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  1094.         return TCL_ERROR;
  1095.     }
  1096.     _arg1 = (float ) atof(argv[2]);
  1097.     PDF_set_duration(_arg0,_arg1);
  1098.     return TCL_OK;
  1099. }
  1100. static int _wrap_PDF_malloc(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  1101.  
  1102.     void * _result;
  1103.     size_t * _arg0;
  1104.     char * _arg1;
  1105.  
  1106.     clientData = clientData; argv = argv;
  1107.     if ((argc < 3) || (argc > 3)) {
  1108.         Tcl_SetResult(interp, "Wrong # args. PDF_malloc size caller ",TCL_STATIC);
  1109.         return TCL_ERROR;
  1110.     }
  1111.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_size_t_p")) {
  1112.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_malloc. Expected _size_t_p, received ", TCL_STATIC);
  1113.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  1114.         return TCL_ERROR;
  1115.     }
  1116.     _arg1 = argv[2];
  1117.     _result = (void *)PDF_malloc(*_arg0,_arg1);
  1118.     SWIG_MakePtr(interp->result, (void *) _result,"_void_p");
  1119.     return TCL_OK;
  1120. }
  1121. static int _wrap_PDF_free(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  1122.  
  1123.     void * _arg0;
  1124.  
  1125.     clientData = clientData; argv = argv;
  1126.     if ((argc < 2) || (argc > 2)) {
  1127.         Tcl_SetResult(interp, "Wrong # args. PDF_free mem ",TCL_STATIC);
  1128.         return TCL_ERROR;
  1129.     }
  1130.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,(char *) 0)) {
  1131.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_free. Expected _void_p, received ", TCL_STATIC);
  1132.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  1133.         return TCL_ERROR;
  1134.     }
  1135.     PDF_free(_arg0);
  1136.     return TCL_OK;
  1137. }
  1138. static int _wrap_PDF_show(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  1139.  
  1140.     PDF * _arg0;
  1141.     char * _arg1;
  1142.  
  1143.     clientData = clientData; argv = argv;
  1144.     if ((argc < 3) || (argc > 3)) {
  1145.         Tcl_SetResult(interp, "Wrong # args. PDF_show p text ",TCL_STATIC);
  1146.         return TCL_ERROR;
  1147.     }
  1148.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_p")) {
  1149.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_show. Expected _PDF_p, received ", TCL_STATIC);
  1150.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  1151.         return TCL_ERROR;
  1152.     }
  1153.     _arg1 = argv[2];
  1154.     PDF_show(_arg0,_arg1);
  1155.     return TCL_OK;
  1156. }
  1157. static int _wrap_PDF_show_xy(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  1158.  
  1159.     PDF * _arg0;
  1160.     char * _arg1;
  1161.     float  _arg2;
  1162.     float  _arg3;
  1163.  
  1164.     clientData = clientData; argv = argv;
  1165.     if ((argc < 5) || (argc > 5)) {
  1166.         Tcl_SetResult(interp, "Wrong # args. PDF_show_xy p text x y ",TCL_STATIC);
  1167.         return TCL_ERROR;
  1168.     }
  1169.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_p")) {
  1170.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_show_xy. Expected _PDF_p, received ", TCL_STATIC);
  1171.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  1172.         return TCL_ERROR;
  1173.     }
  1174.     _arg1 = argv[2];
  1175.     _arg2 = (float ) atof(argv[3]);
  1176.     _arg3 = (float ) atof(argv[4]);
  1177.     PDF_show_xy(_arg0,_arg1,_arg2,_arg3);
  1178.     return TCL_OK;
  1179. }
  1180. static int _wrap_PDF_set_font(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  1181.  
  1182.     PDF * _arg0;
  1183.     char * _arg1;
  1184.     float  _arg2;
  1185.     PDF_encoding  _arg3;
  1186.  
  1187.     clientData = clientData; argv = argv;
  1188.     if ((argc < 5) || (argc > 5)) {
  1189.         Tcl_SetResult(interp, "Wrong # args. PDF_set_font p fontname fontsize enc ",TCL_STATIC);
  1190.         return TCL_ERROR;
  1191.     }
  1192.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_p")) {
  1193.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_set_font. Expected _PDF_p, received ", TCL_STATIC);
  1194.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  1195.         return TCL_ERROR;
  1196.     }
  1197.     _arg1 = argv[2];
  1198.     _arg2 = (float ) atof(argv[3]);
  1199.     _arg3 = (PDF_encoding ) atol(argv[4]);
  1200.     PDF_set_font(_arg0,_arg1,_arg2,_arg3);
  1201.     return TCL_OK;
  1202. }
  1203. static int _wrap_PDF_set_leading(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  1204.  
  1205.     PDF * _arg0;
  1206.     float  _arg1;
  1207.  
  1208.     clientData = clientData; argv = argv;
  1209.     if ((argc < 3) || (argc > 3)) {
  1210.         Tcl_SetResult(interp, "Wrong # args. PDF_set_leading p l ",TCL_STATIC);
  1211.         return TCL_ERROR;
  1212.     }
  1213.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_p")) {
  1214.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_set_leading. Expected _PDF_p, received ", TCL_STATIC);
  1215.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  1216.         return TCL_ERROR;
  1217.     }
  1218.     _arg1 = (float ) atof(argv[2]);
  1219.     PDF_set_leading(_arg0,_arg1);
  1220.     return TCL_OK;
  1221. }
  1222. static int _wrap_PDF_set_text_rise(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  1223.  
  1224.     PDF * _arg0;
  1225.     float  _arg1;
  1226.  
  1227.     clientData = clientData; argv = argv;
  1228.     if ((argc < 3) || (argc > 3)) {
  1229.         Tcl_SetResult(interp, "Wrong # args. PDF_set_text_rise p rise ",TCL_STATIC);
  1230.         return TCL_ERROR;
  1231.     }
  1232.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_p")) {
  1233.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_set_text_rise. Expected _PDF_p, received ", TCL_STATIC);
  1234.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  1235.         return TCL_ERROR;
  1236.     }
  1237.     _arg1 = (float ) atof(argv[2]);
  1238.     PDF_set_text_rise(_arg0,_arg1);
  1239.     return TCL_OK;
  1240. }
  1241. static int _wrap_PDF_set_horiz_scaling(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  1242.  
  1243.     PDF * _arg0;
  1244.     float  _arg1;
  1245.  
  1246.     clientData = clientData; argv = argv;
  1247.     if ((argc < 3) || (argc > 3)) {
  1248.         Tcl_SetResult(interp, "Wrong # args. PDF_set_horiz_scaling p scale ",TCL_STATIC);
  1249.         return TCL_ERROR;
  1250.     }
  1251.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_p")) {
  1252.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_set_horiz_scaling. Expected _PDF_p, received ", TCL_STATIC);
  1253.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  1254.         return TCL_ERROR;
  1255.     }
  1256.     _arg1 = (float ) atof(argv[2]);
  1257.     PDF_set_horiz_scaling(_arg0,_arg1);
  1258.     return TCL_OK;
  1259. }
  1260. static int _wrap_PDF_set_text_rendering(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  1261.  
  1262.     PDF * _arg0;
  1263.     byte  _arg1;
  1264.  
  1265.     clientData = clientData; argv = argv;
  1266.     if ((argc < 3) || (argc > 3)) {
  1267.         Tcl_SetResult(interp, "Wrong # args. PDF_set_text_rendering p mode ",TCL_STATIC);
  1268.         return TCL_ERROR;
  1269.     }
  1270.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_p")) {
  1271.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_set_text_rendering. Expected _PDF_p, received ", TCL_STATIC);
  1272.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  1273.         return TCL_ERROR;
  1274.     }
  1275.     _arg1 = (byte ) strtoul(argv[2],(char **) NULL,0);
  1276.     PDF_set_text_rendering(_arg0,_arg1);
  1277.     return TCL_OK;
  1278. }
  1279. static int _wrap_PDF_set_text_matrix(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  1280.  
  1281.     PDF * _arg0;
  1282.     PDF_matrix * _arg1;
  1283.  
  1284.     clientData = clientData; argv = argv;
  1285.     if ((argc < 3) || (argc > 3)) {
  1286.         Tcl_SetResult(interp, "Wrong # args. PDF_set_text_matrix p m ",TCL_STATIC);
  1287.         return TCL_ERROR;
  1288.     }
  1289.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_p")) {
  1290.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_set_text_matrix. Expected _PDF_p, received ", TCL_STATIC);
  1291.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  1292.         return TCL_ERROR;
  1293.     }
  1294.     if (SWIG_GetPtr(argv[2],(void **) &_arg1,"_PDF_matrix_p")) {
  1295.         Tcl_SetResult(interp, "Type error in argument 2 of PDF_set_text_matrix. Expected _PDF_matrix_p, received ", TCL_STATIC);
  1296.         Tcl_AppendResult(interp, argv[2], (char *) NULL);
  1297.         return TCL_ERROR;
  1298.     }
  1299.     PDF_set_text_matrix(_arg0,*_arg1);
  1300.     return TCL_OK;
  1301. }
  1302. static int _wrap_PDF_set_text_pos(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  1303.  
  1304.     PDF * _arg0;
  1305.     float  _arg1;
  1306.     float  _arg2;
  1307.  
  1308.     clientData = clientData; argv = argv;
  1309.     if ((argc < 4) || (argc > 4)) {
  1310.         Tcl_SetResult(interp, "Wrong # args. PDF_set_text_pos p x y ",TCL_STATIC);
  1311.         return TCL_ERROR;
  1312.     }
  1313.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_p")) {
  1314.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_set_text_pos. Expected _PDF_p, received ", TCL_STATIC);
  1315.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  1316.         return TCL_ERROR;
  1317.     }
  1318.     _arg1 = (float ) atof(argv[2]);
  1319.     _arg2 = (float ) atof(argv[3]);
  1320.     PDF_set_text_pos(_arg0,_arg1,_arg2);
  1321.     return TCL_OK;
  1322. }
  1323. static int _wrap_PDF_set_char_spacing(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  1324.  
  1325.     PDF * _arg0;
  1326.     float  _arg1;
  1327.  
  1328.     clientData = clientData; argv = argv;
  1329.     if ((argc < 3) || (argc > 3)) {
  1330.         Tcl_SetResult(interp, "Wrong # args. PDF_set_char_spacing p spacing ",TCL_STATIC);
  1331.         return TCL_ERROR;
  1332.     }
  1333.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_p")) {
  1334.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_set_char_spacing. Expected _PDF_p, received ", TCL_STATIC);
  1335.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  1336.         return TCL_ERROR;
  1337.     }
  1338.     _arg1 = (float ) atof(argv[2]);
  1339.     PDF_set_char_spacing(_arg0,_arg1);
  1340.     return TCL_OK;
  1341. }
  1342. static int _wrap_PDF_set_word_spacing(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  1343.  
  1344.     PDF * _arg0;
  1345.     float  _arg1;
  1346.  
  1347.     clientData = clientData; argv = argv;
  1348.     if ((argc < 3) || (argc > 3)) {
  1349.         Tcl_SetResult(interp, "Wrong # args. PDF_set_word_spacing p spacing ",TCL_STATIC);
  1350.         return TCL_ERROR;
  1351.     }
  1352.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_p")) {
  1353.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_set_word_spacing. Expected _PDF_p, received ", TCL_STATIC);
  1354.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  1355.         return TCL_ERROR;
  1356.     }
  1357.     _arg1 = (float ) atof(argv[2]);
  1358.     PDF_set_word_spacing(_arg0,_arg1);
  1359.     return TCL_OK;
  1360. }
  1361. static int _wrap_PDF_continue_text(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  1362.  
  1363.     PDF * _arg0;
  1364.     char * _arg1;
  1365.  
  1366.     clientData = clientData; argv = argv;
  1367.     if ((argc < 3) || (argc > 3)) {
  1368.         Tcl_SetResult(interp, "Wrong # args. PDF_continue_text p text ",TCL_STATIC);
  1369.         return TCL_ERROR;
  1370.     }
  1371.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_p")) {
  1372.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_continue_text. Expected _PDF_p, received ", TCL_STATIC);
  1373.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  1374.         return TCL_ERROR;
  1375.     }
  1376.     _arg1 = argv[2];
  1377.     PDF_continue_text(_arg0,_arg1);
  1378.     return TCL_OK;
  1379. }
  1380. static int _wrap_PDF_save(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  1381.  
  1382.     PDF * _arg0;
  1383.  
  1384.     clientData = clientData; argv = argv;
  1385.     if ((argc < 2) || (argc > 2)) {
  1386.         Tcl_SetResult(interp, "Wrong # args. PDF_save p ",TCL_STATIC);
  1387.         return TCL_ERROR;
  1388.     }
  1389.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_p")) {
  1390.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_save. Expected _PDF_p, received ", TCL_STATIC);
  1391.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  1392.         return TCL_ERROR;
  1393.     }
  1394.     PDF_save(_arg0);
  1395.     return TCL_OK;
  1396. }
  1397. static int _wrap_PDF_restore(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  1398.  
  1399.     PDF * _arg0;
  1400.  
  1401.     clientData = clientData; argv = argv;
  1402.     if ((argc < 2) || (argc > 2)) {
  1403.         Tcl_SetResult(interp, "Wrong # args. PDF_restore p ",TCL_STATIC);
  1404.         return TCL_ERROR;
  1405.     }
  1406.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_p")) {
  1407.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_restore. Expected _PDF_p, received ", TCL_STATIC);
  1408.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  1409.         return TCL_ERROR;
  1410.     }
  1411.     PDF_restore(_arg0);
  1412.     return TCL_OK;
  1413. }
  1414. static int _wrap_PDF_translate(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  1415.  
  1416.     PDF * _arg0;
  1417.     float  _arg1;
  1418.     float  _arg2;
  1419.  
  1420.     clientData = clientData; argv = argv;
  1421.     if ((argc < 4) || (argc > 4)) {
  1422.         Tcl_SetResult(interp, "Wrong # args. PDF_translate p tx ty ",TCL_STATIC);
  1423.         return TCL_ERROR;
  1424.     }
  1425.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_p")) {
  1426.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_translate. Expected _PDF_p, received ", TCL_STATIC);
  1427.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  1428.         return TCL_ERROR;
  1429.     }
  1430.     _arg1 = (float ) atof(argv[2]);
  1431.     _arg2 = (float ) atof(argv[3]);
  1432.     PDF_translate(_arg0,_arg1,_arg2);
  1433.     return TCL_OK;
  1434. }
  1435. static int _wrap_PDF_scale(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  1436.  
  1437.     PDF * _arg0;
  1438.     float  _arg1;
  1439.     float  _arg2;
  1440.  
  1441.     clientData = clientData; argv = argv;
  1442.     if ((argc < 4) || (argc > 4)) {
  1443.         Tcl_SetResult(interp, "Wrong # args. PDF_scale p sx sy ",TCL_STATIC);
  1444.         return TCL_ERROR;
  1445.     }
  1446.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_p")) {
  1447.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_scale. Expected _PDF_p, received ", TCL_STATIC);
  1448.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  1449.         return TCL_ERROR;
  1450.     }
  1451.     _arg1 = (float ) atof(argv[2]);
  1452.     _arg2 = (float ) atof(argv[3]);
  1453.     PDF_scale(_arg0,_arg1,_arg2);
  1454.     return TCL_OK;
  1455. }
  1456. static int _wrap_PDF_rotate(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  1457.  
  1458.     PDF * _arg0;
  1459.     float  _arg1;
  1460.  
  1461.     clientData = clientData; argv = argv;
  1462.     if ((argc < 3) || (argc > 3)) {
  1463.         Tcl_SetResult(interp, "Wrong # args. PDF_rotate p phi ",TCL_STATIC);
  1464.         return TCL_ERROR;
  1465.     }
  1466.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_p")) {
  1467.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_rotate. Expected _PDF_p, received ", TCL_STATIC);
  1468.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  1469.         return TCL_ERROR;
  1470.     }
  1471.     _arg1 = (float ) atof(argv[2]);
  1472.     PDF_rotate(_arg0,_arg1);
  1473.     return TCL_OK;
  1474. }
  1475. static int _wrap_PDF_setdash(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  1476.  
  1477.     PDF * _arg0;
  1478.     float  _arg1;
  1479.     float  _arg2;
  1480.  
  1481.     clientData = clientData; argv = argv;
  1482.     if ((argc < 4) || (argc > 4)) {
  1483.         Tcl_SetResult(interp, "Wrong # args. PDF_setdash p d1 d2 ",TCL_STATIC);
  1484.         return TCL_ERROR;
  1485.     }
  1486.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_p")) {
  1487.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_setdash. Expected _PDF_p, received ", TCL_STATIC);
  1488.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  1489.         return TCL_ERROR;
  1490.     }
  1491.     _arg1 = (float ) atof(argv[2]);
  1492.     _arg2 = (float ) atof(argv[3]);
  1493.     PDF_setdash(_arg0,_arg1,_arg2);
  1494.     return TCL_OK;
  1495. }
  1496. static int _wrap_PDF_setpolydash(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  1497.  
  1498.     PDF * _arg0;
  1499.     float * _arg1;
  1500.     int  _arg2;
  1501.  
  1502.     clientData = clientData; argv = argv;
  1503.     if ((argc < 4) || (argc > 4)) {
  1504.         Tcl_SetResult(interp, "Wrong # args. PDF_setpolydash p darray length ",TCL_STATIC);
  1505.         return TCL_ERROR;
  1506.     }
  1507.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_p")) {
  1508.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_setpolydash. Expected _PDF_p, received ", TCL_STATIC);
  1509.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  1510.         return TCL_ERROR;
  1511.     }
  1512.     if (SWIG_GetPtr(argv[2],(void **) &_arg1,"_float_p")) {
  1513.         Tcl_SetResult(interp, "Type error in argument 2 of PDF_setpolydash. Expected _float_p, received ", TCL_STATIC);
  1514.         Tcl_AppendResult(interp, argv[2], (char *) NULL);
  1515.         return TCL_ERROR;
  1516.     }
  1517.     _arg2 = (int ) atol(argv[3]);
  1518.     PDF_setpolydash(_arg0,_arg1,_arg2);
  1519.     return TCL_OK;
  1520. }
  1521. static int _wrap_PDF_setflat(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  1522.  
  1523.     PDF * _arg0;
  1524.     float  _arg1;
  1525.  
  1526.     clientData = clientData; argv = argv;
  1527.     if ((argc < 3) || (argc > 3)) {
  1528.         Tcl_SetResult(interp, "Wrong # args. PDF_setflat p flat ",TCL_STATIC);
  1529.         return TCL_ERROR;
  1530.     }
  1531.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_p")) {
  1532.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_setflat. Expected _PDF_p, received ", TCL_STATIC);
  1533.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  1534.         return TCL_ERROR;
  1535.     }
  1536.     _arg1 = (float ) atof(argv[2]);
  1537.     PDF_setflat(_arg0,_arg1);
  1538.     return TCL_OK;
  1539. }
  1540. static int _wrap_PDF_setlinejoin(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  1541.  
  1542.     PDF * _arg0;
  1543.     byte  _arg1;
  1544.  
  1545.     clientData = clientData; argv = argv;
  1546.     if ((argc < 3) || (argc > 3)) {
  1547.         Tcl_SetResult(interp, "Wrong # args. PDF_setlinejoin p join ",TCL_STATIC);
  1548.         return TCL_ERROR;
  1549.     }
  1550.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_p")) {
  1551.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_setlinejoin. Expected _PDF_p, received ", TCL_STATIC);
  1552.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  1553.         return TCL_ERROR;
  1554.     }
  1555.     _arg1 = (byte ) strtoul(argv[2],(char **) NULL,0);
  1556.     PDF_setlinejoin(_arg0,_arg1);
  1557.     return TCL_OK;
  1558. }
  1559. static int _wrap_PDF_setlinecap(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  1560.  
  1561.     PDF * _arg0;
  1562.     byte  _arg1;
  1563.  
  1564.     clientData = clientData; argv = argv;
  1565.     if ((argc < 3) || (argc > 3)) {
  1566.         Tcl_SetResult(interp, "Wrong # args. PDF_setlinecap p cap ",TCL_STATIC);
  1567.         return TCL_ERROR;
  1568.     }
  1569.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_p")) {
  1570.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_setlinecap. Expected _PDF_p, received ", TCL_STATIC);
  1571.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  1572.         return TCL_ERROR;
  1573.     }
  1574.     _arg1 = (byte ) strtoul(argv[2],(char **) NULL,0);
  1575.     PDF_setlinecap(_arg0,_arg1);
  1576.     return TCL_OK;
  1577. }
  1578. static int _wrap_PDF_setmiterlimit(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  1579.  
  1580.     PDF * _arg0;
  1581.     float  _arg1;
  1582.  
  1583.     clientData = clientData; argv = argv;
  1584.     if ((argc < 3) || (argc > 3)) {
  1585.         Tcl_SetResult(interp, "Wrong # args. PDF_setmiterlimit p miter ",TCL_STATIC);
  1586.         return TCL_ERROR;
  1587.     }
  1588.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_p")) {
  1589.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_setmiterlimit. Expected _PDF_p, received ", TCL_STATIC);
  1590.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  1591.         return TCL_ERROR;
  1592.     }
  1593.     _arg1 = (float ) atof(argv[2]);
  1594.     PDF_setmiterlimit(_arg0,_arg1);
  1595.     return TCL_OK;
  1596. }
  1597. static int _wrap_PDF_setlinewidth(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  1598.  
  1599.     PDF * _arg0;
  1600.     float  _arg1;
  1601.  
  1602.     clientData = clientData; argv = argv;
  1603.     if ((argc < 3) || (argc > 3)) {
  1604.         Tcl_SetResult(interp, "Wrong # args. PDF_setlinewidth p width ",TCL_STATIC);
  1605.         return TCL_ERROR;
  1606.     }
  1607.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_p")) {
  1608.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_setlinewidth. Expected _PDF_p, received ", TCL_STATIC);
  1609.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  1610.         return TCL_ERROR;
  1611.     }
  1612.     _arg1 = (float ) atof(argv[2]);
  1613.     PDF_setlinewidth(_arg0,_arg1);
  1614.     return TCL_OK;
  1615. }
  1616. static int _wrap_PDF_setgray_fill(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  1617.  
  1618.     PDF * _arg0;
  1619.     float  _arg1;
  1620.  
  1621.     clientData = clientData; argv = argv;
  1622.     if ((argc < 3) || (argc > 3)) {
  1623.         Tcl_SetResult(interp, "Wrong # args. PDF_setgray_fill p g ",TCL_STATIC);
  1624.         return TCL_ERROR;
  1625.     }
  1626.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_p")) {
  1627.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_setgray_fill. Expected _PDF_p, received ", TCL_STATIC);
  1628.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  1629.         return TCL_ERROR;
  1630.     }
  1631.     _arg1 = (float ) atof(argv[2]);
  1632.     PDF_setgray_fill(_arg0,_arg1);
  1633.     return TCL_OK;
  1634. }
  1635. static int _wrap_PDF_setgray_stroke(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  1636.  
  1637.     PDF * _arg0;
  1638.     float  _arg1;
  1639.  
  1640.     clientData = clientData; argv = argv;
  1641.     if ((argc < 3) || (argc > 3)) {
  1642.         Tcl_SetResult(interp, "Wrong # args. PDF_setgray_stroke p g ",TCL_STATIC);
  1643.         return TCL_ERROR;
  1644.     }
  1645.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_p")) {
  1646.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_setgray_stroke. Expected _PDF_p, received ", TCL_STATIC);
  1647.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  1648.         return TCL_ERROR;
  1649.     }
  1650.     _arg1 = (float ) atof(argv[2]);
  1651.     PDF_setgray_stroke(_arg0,_arg1);
  1652.     return TCL_OK;
  1653. }
  1654. static int _wrap_PDF_setgray(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  1655.  
  1656.     PDF * _arg0;
  1657.     float  _arg1;
  1658.  
  1659.     clientData = clientData; argv = argv;
  1660.     if ((argc < 3) || (argc > 3)) {
  1661.         Tcl_SetResult(interp, "Wrong # args. PDF_setgray p g ",TCL_STATIC);
  1662.         return TCL_ERROR;
  1663.     }
  1664.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_p")) {
  1665.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_setgray. Expected _PDF_p, received ", TCL_STATIC);
  1666.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  1667.         return TCL_ERROR;
  1668.     }
  1669.     _arg1 = (float ) atof(argv[2]);
  1670.     PDF_setgray(_arg0,_arg1);
  1671.     return TCL_OK;
  1672. }
  1673. static int _wrap_PDF_setrgbcolor_fill(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  1674.  
  1675.     PDF * _arg0;
  1676.     float  _arg1;
  1677.     float  _arg2;
  1678.     float  _arg3;
  1679.  
  1680.     clientData = clientData; argv = argv;
  1681.     if ((argc < 5) || (argc > 5)) {
  1682.         Tcl_SetResult(interp, "Wrong # args. PDF_setrgbcolor_fill p red green blue ",TCL_STATIC);
  1683.         return TCL_ERROR;
  1684.     }
  1685.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_p")) {
  1686.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_setrgbcolor_fill. Expected _PDF_p, received ", TCL_STATIC);
  1687.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  1688.         return TCL_ERROR;
  1689.     }
  1690.     _arg1 = (float ) atof(argv[2]);
  1691.     _arg2 = (float ) atof(argv[3]);
  1692.     _arg3 = (float ) atof(argv[4]);
  1693.     PDF_setrgbcolor_fill(_arg0,_arg1,_arg2,_arg3);
  1694.     return TCL_OK;
  1695. }
  1696. static int _wrap_PDF_setrgbcolor_stroke(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  1697.  
  1698.     PDF * _arg0;
  1699.     float  _arg1;
  1700.     float  _arg2;
  1701.     float  _arg3;
  1702.  
  1703.     clientData = clientData; argv = argv;
  1704.     if ((argc < 5) || (argc > 5)) {
  1705.         Tcl_SetResult(interp, "Wrong # args. PDF_setrgbcolor_stroke p red green blue ",TCL_STATIC);
  1706.         return TCL_ERROR;
  1707.     }
  1708.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_p")) {
  1709.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_setrgbcolor_stroke. Expected _PDF_p, received ", TCL_STATIC);
  1710.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  1711.         return TCL_ERROR;
  1712.     }
  1713.     _arg1 = (float ) atof(argv[2]);
  1714.     _arg2 = (float ) atof(argv[3]);
  1715.     _arg3 = (float ) atof(argv[4]);
  1716.     PDF_setrgbcolor_stroke(_arg0,_arg1,_arg2,_arg3);
  1717.     return TCL_OK;
  1718. }
  1719. static int _wrap_PDF_setrgbcolor(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  1720.  
  1721.     PDF * _arg0;
  1722.     float  _arg1;
  1723.     float  _arg2;
  1724.     float  _arg3;
  1725.  
  1726.     clientData = clientData; argv = argv;
  1727.     if ((argc < 5) || (argc > 5)) {
  1728.         Tcl_SetResult(interp, "Wrong # args. PDF_setrgbcolor p red green blue ",TCL_STATIC);
  1729.         return TCL_ERROR;
  1730.     }
  1731.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_p")) {
  1732.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_setrgbcolor. Expected _PDF_p, received ", TCL_STATIC);
  1733.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  1734.         return TCL_ERROR;
  1735.     }
  1736.     _arg1 = (float ) atof(argv[2]);
  1737.     _arg2 = (float ) atof(argv[3]);
  1738.     _arg3 = (float ) atof(argv[4]);
  1739.     PDF_setrgbcolor(_arg0,_arg1,_arg2,_arg3);
  1740.     return TCL_OK;
  1741. }
  1742. static int _wrap_PDF_moveto(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  1743.  
  1744.     PDF * _arg0;
  1745.     float  _arg1;
  1746.     float  _arg2;
  1747.  
  1748.     clientData = clientData; argv = argv;
  1749.     if ((argc < 4) || (argc > 4)) {
  1750.         Tcl_SetResult(interp, "Wrong # args. PDF_moveto p x y ",TCL_STATIC);
  1751.         return TCL_ERROR;
  1752.     }
  1753.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_p")) {
  1754.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_moveto. Expected _PDF_p, received ", TCL_STATIC);
  1755.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  1756.         return TCL_ERROR;
  1757.     }
  1758.     _arg1 = (float ) atof(argv[2]);
  1759.     _arg2 = (float ) atof(argv[3]);
  1760.     PDF_moveto(_arg0,_arg1,_arg2);
  1761.     return TCL_OK;
  1762. }
  1763. static int _wrap_PDF_lineto(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  1764.  
  1765.     PDF * _arg0;
  1766.     float  _arg1;
  1767.     float  _arg2;
  1768.  
  1769.     clientData = clientData; argv = argv;
  1770.     if ((argc < 4) || (argc > 4)) {
  1771.         Tcl_SetResult(interp, "Wrong # args. PDF_lineto p x y ",TCL_STATIC);
  1772.         return TCL_ERROR;
  1773.     }
  1774.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_p")) {
  1775.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_lineto. Expected _PDF_p, received ", TCL_STATIC);
  1776.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  1777.         return TCL_ERROR;
  1778.     }
  1779.     _arg1 = (float ) atof(argv[2]);
  1780.     _arg2 = (float ) atof(argv[3]);
  1781.     PDF_lineto(_arg0,_arg1,_arg2);
  1782.     return TCL_OK;
  1783. }
  1784. static int _wrap_PDF_curveto(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  1785.  
  1786.     PDF * _arg0;
  1787.     float  _arg1;
  1788.     float  _arg2;
  1789.     float  _arg3;
  1790.     float  _arg4;
  1791.     float  _arg5;
  1792.     float  _arg6;
  1793.  
  1794.     clientData = clientData; argv = argv;
  1795.     if ((argc < 8) || (argc > 8)) {
  1796.         Tcl_SetResult(interp, "Wrong # args. PDF_curveto p x1 y1 x2 y2 x3 y3 ",TCL_STATIC);
  1797.         return TCL_ERROR;
  1798.     }
  1799.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_p")) {
  1800.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_curveto. Expected _PDF_p, received ", TCL_STATIC);
  1801.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  1802.         return TCL_ERROR;
  1803.     }
  1804.     _arg1 = (float ) atof(argv[2]);
  1805.     _arg2 = (float ) atof(argv[3]);
  1806.     _arg3 = (float ) atof(argv[4]);
  1807.     _arg4 = (float ) atof(argv[5]);
  1808.     _arg5 = (float ) atof(argv[6]);
  1809.     _arg6 = (float ) atof(argv[7]);
  1810.     PDF_curveto(_arg0,_arg1,_arg2,_arg3,_arg4,_arg5,_arg6);
  1811.     return TCL_OK;
  1812. }
  1813. static int _wrap_PDF_circle(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  1814.  
  1815.     PDF * _arg0;
  1816.     float  _arg1;
  1817.     float  _arg2;
  1818.     float  _arg3;
  1819.  
  1820.     clientData = clientData; argv = argv;
  1821.     if ((argc < 5) || (argc > 5)) {
  1822.         Tcl_SetResult(interp, "Wrong # args. PDF_circle p x y r ",TCL_STATIC);
  1823.         return TCL_ERROR;
  1824.     }
  1825.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_p")) {
  1826.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_circle. Expected _PDF_p, received ", TCL_STATIC);
  1827.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  1828.         return TCL_ERROR;
  1829.     }
  1830.     _arg1 = (float ) atof(argv[2]);
  1831.     _arg2 = (float ) atof(argv[3]);
  1832.     _arg3 = (float ) atof(argv[4]);
  1833.     PDF_circle(_arg0,_arg1,_arg2,_arg3);
  1834.     return TCL_OK;
  1835. }
  1836. static int _wrap_PDF_arc(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  1837.  
  1838.     PDF * _arg0;
  1839.     float  _arg1;
  1840.     float  _arg2;
  1841.     float  _arg3;
  1842.     float  _arg4;
  1843.     float  _arg5;
  1844.  
  1845.     clientData = clientData; argv = argv;
  1846.     if ((argc < 7) || (argc > 7)) {
  1847.         Tcl_SetResult(interp, "Wrong # args. PDF_arc p x y r alpha1 alpha2 ",TCL_STATIC);
  1848.         return TCL_ERROR;
  1849.     }
  1850.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_p")) {
  1851.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_arc. Expected _PDF_p, received ", TCL_STATIC);
  1852.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  1853.         return TCL_ERROR;
  1854.     }
  1855.     _arg1 = (float ) atof(argv[2]);
  1856.     _arg2 = (float ) atof(argv[3]);
  1857.     _arg3 = (float ) atof(argv[4]);
  1858.     _arg4 = (float ) atof(argv[5]);
  1859.     _arg5 = (float ) atof(argv[6]);
  1860.     PDF_arc(_arg0,_arg1,_arg2,_arg3,_arg4,_arg5);
  1861.     return TCL_OK;
  1862. }
  1863. static int _wrap_PDF_rect(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  1864.  
  1865.     PDF * _arg0;
  1866.     float  _arg1;
  1867.     float  _arg2;
  1868.     float  _arg3;
  1869.     float  _arg4;
  1870.  
  1871.     clientData = clientData; argv = argv;
  1872.     if ((argc < 6) || (argc > 6)) {
  1873.         Tcl_SetResult(interp, "Wrong # args. PDF_rect p x y width height ",TCL_STATIC);
  1874.         return TCL_ERROR;
  1875.     }
  1876.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_p")) {
  1877.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_rect. Expected _PDF_p, received ", TCL_STATIC);
  1878.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  1879.         return TCL_ERROR;
  1880.     }
  1881.     _arg1 = (float ) atof(argv[2]);
  1882.     _arg2 = (float ) atof(argv[3]);
  1883.     _arg3 = (float ) atof(argv[4]);
  1884.     _arg4 = (float ) atof(argv[5]);
  1885.     PDF_rect(_arg0,_arg1,_arg2,_arg3,_arg4);
  1886.     return TCL_OK;
  1887. }
  1888. static int _wrap_PDF_closepath(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  1889.  
  1890.     PDF * _arg0;
  1891.  
  1892.     clientData = clientData; argv = argv;
  1893.     if ((argc < 2) || (argc > 2)) {
  1894.         Tcl_SetResult(interp, "Wrong # args. PDF_closepath p ",TCL_STATIC);
  1895.         return TCL_ERROR;
  1896.     }
  1897.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_p")) {
  1898.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_closepath. Expected _PDF_p, received ", TCL_STATIC);
  1899.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  1900.         return TCL_ERROR;
  1901.     }
  1902.     PDF_closepath(_arg0);
  1903.     return TCL_OK;
  1904. }
  1905. static int _wrap_PDF_stroke(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  1906.  
  1907.     PDF * _arg0;
  1908.  
  1909.     clientData = clientData; argv = argv;
  1910.     if ((argc < 2) || (argc > 2)) {
  1911.         Tcl_SetResult(interp, "Wrong # args. PDF_stroke p ",TCL_STATIC);
  1912.         return TCL_ERROR;
  1913.     }
  1914.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_p")) {
  1915.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_stroke. Expected _PDF_p, received ", TCL_STATIC);
  1916.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  1917.         return TCL_ERROR;
  1918.     }
  1919.     PDF_stroke(_arg0);
  1920.     return TCL_OK;
  1921. }
  1922. static int _wrap_PDF_closepath_stroke(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  1923.  
  1924.     PDF * _arg0;
  1925.  
  1926.     clientData = clientData; argv = argv;
  1927.     if ((argc < 2) || (argc > 2)) {
  1928.         Tcl_SetResult(interp, "Wrong # args. PDF_closepath_stroke p ",TCL_STATIC);
  1929.         return TCL_ERROR;
  1930.     }
  1931.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_p")) {
  1932.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_closepath_stroke. Expected _PDF_p, received ", TCL_STATIC);
  1933.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  1934.         return TCL_ERROR;
  1935.     }
  1936.     PDF_closepath_stroke(_arg0);
  1937.     return TCL_OK;
  1938. }
  1939. static int _wrap_PDF_fill(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  1940.  
  1941.     PDF * _arg0;
  1942.  
  1943.     clientData = clientData; argv = argv;
  1944.     if ((argc < 2) || (argc > 2)) {
  1945.         Tcl_SetResult(interp, "Wrong # args. PDF_fill p ",TCL_STATIC);
  1946.         return TCL_ERROR;
  1947.     }
  1948.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_p")) {
  1949.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_fill. Expected _PDF_p, received ", TCL_STATIC);
  1950.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  1951.         return TCL_ERROR;
  1952.     }
  1953.     PDF_fill(_arg0);
  1954.     return TCL_OK;
  1955. }
  1956. static int _wrap_PDF_fill_stroke(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  1957.  
  1958.     PDF * _arg0;
  1959.  
  1960.     clientData = clientData; argv = argv;
  1961.     if ((argc < 2) || (argc > 2)) {
  1962.         Tcl_SetResult(interp, "Wrong # args. PDF_fill_stroke p ",TCL_STATIC);
  1963.         return TCL_ERROR;
  1964.     }
  1965.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_p")) {
  1966.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_fill_stroke. Expected _PDF_p, received ", TCL_STATIC);
  1967.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  1968.         return TCL_ERROR;
  1969.     }
  1970.     PDF_fill_stroke(_arg0);
  1971.     return TCL_OK;
  1972. }
  1973. static int _wrap_PDF_closepath_fill_stroke(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  1974.  
  1975.     PDF * _arg0;
  1976.  
  1977.     clientData = clientData; argv = argv;
  1978.     if ((argc < 2) || (argc > 2)) {
  1979.         Tcl_SetResult(interp, "Wrong # args. PDF_closepath_fill_stroke p ",TCL_STATIC);
  1980.         return TCL_ERROR;
  1981.     }
  1982.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_p")) {
  1983.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_closepath_fill_stroke. Expected _PDF_p, received ", TCL_STATIC);
  1984.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  1985.         return TCL_ERROR;
  1986.     }
  1987.     PDF_closepath_fill_stroke(_arg0);
  1988.     return TCL_OK;
  1989. }
  1990. static int _wrap_PDF_endpath(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  1991.  
  1992.     PDF * _arg0;
  1993.  
  1994.     clientData = clientData; argv = argv;
  1995.     if ((argc < 2) || (argc > 2)) {
  1996.         Tcl_SetResult(interp, "Wrong # args. PDF_endpath p ",TCL_STATIC);
  1997.         return TCL_ERROR;
  1998.     }
  1999.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_p")) {
  2000.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_endpath. Expected _PDF_p, received ", TCL_STATIC);
  2001.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  2002.         return TCL_ERROR;
  2003.     }
  2004.     PDF_endpath(_arg0);
  2005.     return TCL_OK;
  2006. }
  2007. static int _wrap_PDF_clip(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  2008.  
  2009.     PDF * _arg0;
  2010.  
  2011.     clientData = clientData; argv = argv;
  2012.     if ((argc < 2) || (argc > 2)) {
  2013.         Tcl_SetResult(interp, "Wrong # args. PDF_clip p ",TCL_STATIC);
  2014.         return TCL_ERROR;
  2015.     }
  2016.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_p")) {
  2017.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_clip. Expected _PDF_p, received ", TCL_STATIC);
  2018.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  2019.         return TCL_ERROR;
  2020.     }
  2021.     PDF_clip(_arg0);
  2022.     return TCL_OK;
  2023. }
  2024. static int _wrap_PDF_place_image(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  2025.  
  2026.     PDF * _arg0;
  2027.     PDF_image * _arg1;
  2028.     float  _arg2;
  2029.     float  _arg3;
  2030.     float  _arg4;
  2031.  
  2032.     clientData = clientData; argv = argv;
  2033.     if ((argc < 6) || (argc > 6)) {
  2034.         Tcl_SetResult(interp, "Wrong # args. PDF_place_image p image x y scale ",TCL_STATIC);
  2035.         return TCL_ERROR;
  2036.     }
  2037.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_p")) {
  2038.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_place_image. Expected _PDF_p, received ", TCL_STATIC);
  2039.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  2040.         return TCL_ERROR;
  2041.     }
  2042.     if (SWIG_GetPtr(argv[2],(void **) &_arg1,"_PDF_image_p")) {
  2043.         Tcl_SetResult(interp, "Type error in argument 2 of PDF_place_image. Expected _PDF_image_p, received ", TCL_STATIC);
  2044.         Tcl_AppendResult(interp, argv[2], (char *) NULL);
  2045.         return TCL_ERROR;
  2046.     }
  2047.     _arg2 = (float ) atof(argv[3]);
  2048.     _arg3 = (float ) atof(argv[4]);
  2049.     _arg4 = (float ) atof(argv[5]);
  2050.     PDF_place_image(_arg0,_arg1,_arg2,_arg3,_arg4);
  2051.     return TCL_OK;
  2052. }
  2053. static int _wrap_PDF_place_inline_image(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  2054.  
  2055.     PDF * _arg0;
  2056.     PDF_image * _arg1;
  2057.     float  _arg2;
  2058.     float  _arg3;
  2059.     float  _arg4;
  2060.  
  2061.     clientData = clientData; argv = argv;
  2062.     if ((argc < 6) || (argc > 6)) {
  2063.         Tcl_SetResult(interp, "Wrong # args. PDF_place_inline_image p image x y scale ",TCL_STATIC);
  2064.         return TCL_ERROR;
  2065.     }
  2066.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_p")) {
  2067.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_place_inline_image. Expected _PDF_p, received ", TCL_STATIC);
  2068.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  2069.         return TCL_ERROR;
  2070.     }
  2071.     if (SWIG_GetPtr(argv[2],(void **) &_arg1,"_PDF_image_p")) {
  2072.         Tcl_SetResult(interp, "Type error in argument 2 of PDF_place_inline_image. Expected _PDF_image_p, received ", TCL_STATIC);
  2073.         Tcl_AppendResult(interp, argv[2], (char *) NULL);
  2074.         return TCL_ERROR;
  2075.     }
  2076.     _arg2 = (float ) atof(argv[3]);
  2077.     _arg3 = (float ) atof(argv[4]);
  2078.     _arg4 = (float ) atof(argv[5]);
  2079.     PDF_place_inline_image(_arg0,_arg1,_arg2,_arg3,_arg4);
  2080.     return TCL_OK;
  2081. }
  2082. static int _wrap_PDF_put_image(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  2083.  
  2084.     PDF * _arg0;
  2085.     PDF_image * _arg1;
  2086.  
  2087.     clientData = clientData; argv = argv;
  2088.     if ((argc < 3) || (argc > 3)) {
  2089.         Tcl_SetResult(interp, "Wrong # args. PDF_put_image p image ",TCL_STATIC);
  2090.         return TCL_ERROR;
  2091.     }
  2092.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_p")) {
  2093.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_put_image. Expected _PDF_p, received ", TCL_STATIC);
  2094.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  2095.         return TCL_ERROR;
  2096.     }
  2097.     if (SWIG_GetPtr(argv[2],(void **) &_arg1,"_PDF_image_p")) {
  2098.         Tcl_SetResult(interp, "Type error in argument 2 of PDF_put_image. Expected _PDF_image_p, received ", TCL_STATIC);
  2099.         Tcl_AppendResult(interp, argv[2], (char *) NULL);
  2100.         return TCL_ERROR;
  2101.     }
  2102.     PDF_put_image(_arg0,_arg1);
  2103.     return TCL_OK;
  2104. }
  2105. static int _wrap_PDF_execute_image(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  2106.  
  2107.     PDF * _arg0;
  2108.     PDF_image * _arg1;
  2109.     float  _arg2;
  2110.     float  _arg3;
  2111.     float  _arg4;
  2112.  
  2113.     clientData = clientData; argv = argv;
  2114.     if ((argc < 6) || (argc > 6)) {
  2115.         Tcl_SetResult(interp, "Wrong # args. PDF_execute_image p image x y scale ",TCL_STATIC);
  2116.         return TCL_ERROR;
  2117.     }
  2118.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_p")) {
  2119.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_execute_image. Expected _PDF_p, received ", TCL_STATIC);
  2120.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  2121.         return TCL_ERROR;
  2122.     }
  2123.     if (SWIG_GetPtr(argv[2],(void **) &_arg1,"_PDF_image_p")) {
  2124.         Tcl_SetResult(interp, "Type error in argument 2 of PDF_execute_image. Expected _PDF_image_p, received ", TCL_STATIC);
  2125.         Tcl_AppendResult(interp, argv[2], (char *) NULL);
  2126.         return TCL_ERROR;
  2127.     }
  2128.     _arg2 = (float ) atof(argv[3]);
  2129.     _arg3 = (float ) atof(argv[4]);
  2130.     _arg4 = (float ) atof(argv[5]);
  2131.     PDF_execute_image(_arg0,_arg1,_arg2,_arg3,_arg4);
  2132.     return TCL_OK;
  2133. }
  2134. static int _wrap_PDF_close_image(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  2135.  
  2136.     PDF * _arg0;
  2137.     PDF_image * _arg1;
  2138.  
  2139.     clientData = clientData; argv = argv;
  2140.     if ((argc < 3) || (argc > 3)) {
  2141.         Tcl_SetResult(interp, "Wrong # args. PDF_close_image p image ",TCL_STATIC);
  2142.         return TCL_ERROR;
  2143.     }
  2144.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_p")) {
  2145.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_close_image. Expected _PDF_p, received ", TCL_STATIC);
  2146.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  2147.         return TCL_ERROR;
  2148.     }
  2149.     if (SWIG_GetPtr(argv[2],(void **) &_arg1,"_PDF_image_p")) {
  2150.         Tcl_SetResult(interp, "Type error in argument 2 of PDF_close_image. Expected _PDF_image_p, received ", TCL_STATIC);
  2151.         Tcl_AppendResult(interp, argv[2], (char *) NULL);
  2152.         return TCL_ERROR;
  2153.     }
  2154.     PDF_close_image(_arg0,_arg1);
  2155.     return TCL_OK;
  2156. }
  2157. static int _wrap_PDF_open_JPEG(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  2158.  
  2159.     PDF_image * _result;
  2160.     PDF * _arg0;
  2161.     char * _arg1;
  2162.  
  2163.     clientData = clientData; argv = argv;
  2164.     if ((argc < 3) || (argc > 3)) {
  2165.         Tcl_SetResult(interp, "Wrong # args. PDF_open_JPEG p filename ",TCL_STATIC);
  2166.         return TCL_ERROR;
  2167.     }
  2168.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_p")) {
  2169.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_open_JPEG. Expected _PDF_p, received ", TCL_STATIC);
  2170.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  2171.         return TCL_ERROR;
  2172.     }
  2173.     _arg1 = argv[2];
  2174.     _result = (PDF_image *)PDF_open_JPEG(_arg0,_arg1);
  2175.     SWIG_MakePtr(interp->result, (void *) _result,"_PDF_image_p");
  2176.     return TCL_OK;
  2177. }
  2178. static int _wrap_PDF_close_JPEG(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  2179.  
  2180.     PDF * _arg0;
  2181.     PDF_image * _arg1;
  2182.  
  2183.     clientData = clientData; argv = argv;
  2184.     if ((argc < 3) || (argc > 3)) {
  2185.         Tcl_SetResult(interp, "Wrong # args. PDF_close_JPEG p image ",TCL_STATIC);
  2186.         return TCL_ERROR;
  2187.     }
  2188.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_p")) {
  2189.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_close_JPEG. Expected _PDF_p, received ", TCL_STATIC);
  2190.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  2191.         return TCL_ERROR;
  2192.     }
  2193.     if (SWIG_GetPtr(argv[2],(void **) &_arg1,"_PDF_image_p")) {
  2194.         Tcl_SetResult(interp, "Type error in argument 2 of PDF_close_JPEG. Expected _PDF_image_p, received ", TCL_STATIC);
  2195.         Tcl_AppendResult(interp, argv[2], (char *) NULL);
  2196.         return TCL_ERROR;
  2197.     }
  2198.     PDF_close_JPEG(_arg0,_arg1);
  2199.     return TCL_OK;
  2200. }
  2201. static int _wrap_PDF_open_TIFF(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  2202.  
  2203.     PDF_image * _result;
  2204.     PDF * _arg0;
  2205.     char * _arg1;
  2206.  
  2207.     clientData = clientData; argv = argv;
  2208.     if ((argc < 3) || (argc > 3)) {
  2209.         Tcl_SetResult(interp, "Wrong # args. PDF_open_TIFF p filename ",TCL_STATIC);
  2210.         return TCL_ERROR;
  2211.     }
  2212.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_p")) {
  2213.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_open_TIFF. Expected _PDF_p, received ", TCL_STATIC);
  2214.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  2215.         return TCL_ERROR;
  2216.     }
  2217.     _arg1 = argv[2];
  2218.     _result = (PDF_image *)PDF_open_TIFF(_arg0,_arg1);
  2219.     SWIG_MakePtr(interp->result, (void *) _result,"_PDF_image_p");
  2220.     return TCL_OK;
  2221. }
  2222. static int _wrap_PDF_close_TIFF(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  2223.  
  2224.     PDF * _arg0;
  2225.     PDF_image * _arg1;
  2226.  
  2227.     clientData = clientData; argv = argv;
  2228.     if ((argc < 3) || (argc > 3)) {
  2229.         Tcl_SetResult(interp, "Wrong # args. PDF_close_TIFF p image ",TCL_STATIC);
  2230.         return TCL_ERROR;
  2231.     }
  2232.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_p")) {
  2233.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_close_TIFF. Expected _PDF_p, received ", TCL_STATIC);
  2234.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  2235.         return TCL_ERROR;
  2236.     }
  2237.     if (SWIG_GetPtr(argv[2],(void **) &_arg1,"_PDF_image_p")) {
  2238.         Tcl_SetResult(interp, "Type error in argument 2 of PDF_close_TIFF. Expected _PDF_image_p, received ", TCL_STATIC);
  2239.         Tcl_AppendResult(interp, argv[2], (char *) NULL);
  2240.         return TCL_ERROR;
  2241.     }
  2242.     PDF_close_TIFF(_arg0,_arg1);
  2243.     return TCL_OK;
  2244. }
  2245. static int _wrap_PDF_open_GIF(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  2246.  
  2247.     PDF_image * _result;
  2248.     PDF * _arg0;
  2249.     char * _arg1;
  2250.  
  2251.     clientData = clientData; argv = argv;
  2252.     if ((argc < 3) || (argc > 3)) {
  2253.         Tcl_SetResult(interp, "Wrong # args. PDF_open_GIF p filename ",TCL_STATIC);
  2254.         return TCL_ERROR;
  2255.     }
  2256.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_p")) {
  2257.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_open_GIF. Expected _PDF_p, received ", TCL_STATIC);
  2258.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  2259.         return TCL_ERROR;
  2260.     }
  2261.     _arg1 = argv[2];
  2262.     _result = (PDF_image *)PDF_open_GIF(_arg0,_arg1);
  2263.     SWIG_MakePtr(interp->result, (void *) _result,"_PDF_image_p");
  2264.     return TCL_OK;
  2265. }
  2266. static int _wrap_PDF_close_GIF(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  2267.  
  2268.     PDF * _arg0;
  2269.     PDF_image * _arg1;
  2270.  
  2271.     clientData = clientData; argv = argv;
  2272.     if ((argc < 3) || (argc > 3)) {
  2273.         Tcl_SetResult(interp, "Wrong # args. PDF_close_GIF p image ",TCL_STATIC);
  2274.         return TCL_ERROR;
  2275.     }
  2276.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_p")) {
  2277.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_close_GIF. Expected _PDF_p, received ", TCL_STATIC);
  2278.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  2279.         return TCL_ERROR;
  2280.     }
  2281.     if (SWIG_GetPtr(argv[2],(void **) &_arg1,"_PDF_image_p")) {
  2282.         Tcl_SetResult(interp, "Type error in argument 2 of PDF_close_GIF. Expected _PDF_image_p, received ", TCL_STATIC);
  2283.         Tcl_AppendResult(interp, argv[2], (char *) NULL);
  2284.         return TCL_ERROR;
  2285.     }
  2286.     PDF_close_GIF(_arg0,_arg1);
  2287.     return TCL_OK;
  2288. }
  2289. static int _wrap_PDF_data_source_from_buf(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  2290.  
  2291.     PDF * _arg0;
  2292.     PDF_data_source * _arg1;
  2293.     byte * _arg2;
  2294.     long  _arg3;
  2295.  
  2296.     clientData = clientData; argv = argv;
  2297.     if ((argc < 5) || (argc > 5)) {
  2298.         Tcl_SetResult(interp, "Wrong # args. PDF_data_source_from_buf p src buffer len ",TCL_STATIC);
  2299.         return TCL_ERROR;
  2300.     }
  2301.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_p")) {
  2302.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_data_source_from_buf. Expected _PDF_p, received ", TCL_STATIC);
  2303.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  2304.         return TCL_ERROR;
  2305.     }
  2306.     if (SWIG_GetPtr(argv[2],(void **) &_arg1,"_PDF_data_source_p")) {
  2307.         Tcl_SetResult(interp, "Type error in argument 2 of PDF_data_source_from_buf. Expected _PDF_data_source_p, received ", TCL_STATIC);
  2308.         Tcl_AppendResult(interp, argv[2], (char *) NULL);
  2309.         return TCL_ERROR;
  2310.     }
  2311.     if (SWIG_GetPtr(argv[3],(void **) &_arg2,"_byte_p")) {
  2312.         Tcl_SetResult(interp, "Type error in argument 3 of PDF_data_source_from_buf. Expected _byte_p, received ", TCL_STATIC);
  2313.         Tcl_AppendResult(interp, argv[3], (char *) NULL);
  2314.         return TCL_ERROR;
  2315.     }
  2316.     _arg3 = (long ) atol(argv[4]);
  2317.     PDF_data_source_from_buf(_arg0,_arg1,_arg2,_arg3);
  2318.     return TCL_OK;
  2319. }
  2320. static int _wrap_PDF_stringwidth(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  2321.  
  2322.     float  _result;
  2323.     PDF * _arg0;
  2324.     byte * _arg1;
  2325.  
  2326.     clientData = clientData; argv = argv;
  2327.     if ((argc < 3) || (argc > 3)) {
  2328.         Tcl_SetResult(interp, "Wrong # args. PDF_stringwidth p text ",TCL_STATIC);
  2329.         return TCL_ERROR;
  2330.     }
  2331.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_p")) {
  2332.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_stringwidth. Expected _PDF_p, received ", TCL_STATIC);
  2333.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  2334.         return TCL_ERROR;
  2335.     }
  2336.     if (SWIG_GetPtr(argv[2],(void **) &_arg1,"_byte_p")) {
  2337.         Tcl_SetResult(interp, "Type error in argument 2 of PDF_stringwidth. Expected _byte_p, received ", TCL_STATIC);
  2338.         Tcl_AppendResult(interp, argv[2], (char *) NULL);
  2339.         return TCL_ERROR;
  2340.     }
  2341.     _result = (float )PDF_stringwidth(_arg0,_arg1);
  2342.     Tcl_PrintDouble(interp,(double) _result, interp->result);
  2343.     return TCL_OK;
  2344. }
  2345. static int _wrap_PDF_add_outline(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  2346.  
  2347.     PDF * _arg0;
  2348.     char * _arg1;
  2349.  
  2350.     clientData = clientData; argv = argv;
  2351.     if ((argc < 3) || (argc > 3)) {
  2352.         Tcl_SetResult(interp, "Wrong # args. PDF_add_outline p text ",TCL_STATIC);
  2353.         return TCL_ERROR;
  2354.     }
  2355.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_p")) {
  2356.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_add_outline. Expected _PDF_p, received ", TCL_STATIC);
  2357.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  2358.         return TCL_ERROR;
  2359.     }
  2360.     _arg1 = argv[2];
  2361.     PDF_add_outline(_arg0,_arg1);
  2362.     return TCL_OK;
  2363. }
  2364. static int _wrap_fopen(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  2365.  
  2366.     FILE * _result;
  2367.     char * _arg0;
  2368.     char * _arg1;
  2369.  
  2370.     clientData = clientData; argv = argv;
  2371.     if ((argc < 3) || (argc > 3)) {
  2372.         Tcl_SetResult(interp, "Wrong # args. fopen { char * } { char * } ",TCL_STATIC);
  2373.         return TCL_ERROR;
  2374.     }
  2375.     _arg0 = argv[1];
  2376.     _arg1 = argv[2];
  2377.     _result = (FILE *)fopen(_arg0,_arg1);
  2378.     SWIG_MakePtr(interp->result, (void *) _result,"_FILE_p");
  2379.     return TCL_OK;
  2380. }
  2381. static int _wrap_fclose(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  2382.  
  2383.     FILE * _arg0;
  2384.  
  2385.     clientData = clientData; argv = argv;
  2386.     if ((argc < 2) || (argc > 2)) {
  2387.         Tcl_SetResult(interp, "Wrong # args. fclose fp ",TCL_STATIC);
  2388.         return TCL_ERROR;
  2389.     }
  2390.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_FILE_p")) {
  2391.         Tcl_SetResult(interp, "Type error in argument 1 of fclose. Expected _FILE_p, received ", TCL_STATIC);
  2392.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  2393.         return TCL_ERROR;
  2394.     }
  2395.     fclose(_arg0);
  2396.     return TCL_OK;
  2397. }
  2398. #define PDF_pagesize_width_set(_swigobj,_swigval) (_swigobj->width = _swigval,_swigval)
  2399. static int _wrap_PDF_pagesize_width_set(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  2400.  
  2401.     float  _result;
  2402.     PDF_pagesize * _arg0;
  2403.     float  _arg1;
  2404.  
  2405.     clientData = clientData; argv = argv;
  2406.     if ((argc < 3) || (argc > 3)) {
  2407.         Tcl_SetResult(interp, "Wrong # args. PDF_pagesize_width_set { PDF_pagesize * } { float  } ",TCL_STATIC);
  2408.         return TCL_ERROR;
  2409.     }
  2410.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_pagesize_p")) {
  2411.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_pagesize_width_set. Expected _PDF_pagesize_p, received ", TCL_STATIC);
  2412.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  2413.         return TCL_ERROR;
  2414.     }
  2415.     _arg1 = (float ) atof(argv[2]);
  2416.     _result = (float )PDF_pagesize_width_set(_arg0,_arg1);
  2417.     Tcl_PrintDouble(interp,(double) _result, interp->result);
  2418.     return TCL_OK;
  2419. }
  2420. #define PDF_pagesize_width_get(_swigobj) ((float ) _swigobj->width)
  2421. static int _wrap_PDF_pagesize_width_get(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  2422.  
  2423.     float  _result;
  2424.     PDF_pagesize * _arg0;
  2425.  
  2426.     clientData = clientData; argv = argv;
  2427.     if ((argc < 2) || (argc > 2)) {
  2428.         Tcl_SetResult(interp, "Wrong # args. PDF_pagesize_width_get { PDF_pagesize * } ",TCL_STATIC);
  2429.         return TCL_ERROR;
  2430.     }
  2431.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_pagesize_p")) {
  2432.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_pagesize_width_get. Expected _PDF_pagesize_p, received ", TCL_STATIC);
  2433.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  2434.         return TCL_ERROR;
  2435.     }
  2436.     _result = (float )PDF_pagesize_width_get(_arg0);
  2437.     Tcl_PrintDouble(interp,(double) _result, interp->result);
  2438.     return TCL_OK;
  2439. }
  2440. #define PDF_pagesize_height_set(_swigobj,_swigval) (_swigobj->height = _swigval,_swigval)
  2441. static int _wrap_PDF_pagesize_height_set(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  2442.  
  2443.     float  _result;
  2444.     PDF_pagesize * _arg0;
  2445.     float  _arg1;
  2446.  
  2447.     clientData = clientData; argv = argv;
  2448.     if ((argc < 3) || (argc > 3)) {
  2449.         Tcl_SetResult(interp, "Wrong # args. PDF_pagesize_height_set { PDF_pagesize * } { float  } ",TCL_STATIC);
  2450.         return TCL_ERROR;
  2451.     }
  2452.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_pagesize_p")) {
  2453.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_pagesize_height_set. Expected _PDF_pagesize_p, received ", TCL_STATIC);
  2454.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  2455.         return TCL_ERROR;
  2456.     }
  2457.     _arg1 = (float ) atof(argv[2]);
  2458.     _result = (float )PDF_pagesize_height_set(_arg0,_arg1);
  2459.     Tcl_PrintDouble(interp,(double) _result, interp->result);
  2460.     return TCL_OK;
  2461. }
  2462. #define PDF_pagesize_height_get(_swigobj) ((float ) _swigobj->height)
  2463. static int _wrap_PDF_pagesize_height_get(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  2464.  
  2465.     float  _result;
  2466.     PDF_pagesize * _arg0;
  2467.  
  2468.     clientData = clientData; argv = argv;
  2469.     if ((argc < 2) || (argc > 2)) {
  2470.         Tcl_SetResult(interp, "Wrong # args. PDF_pagesize_height_get { PDF_pagesize * } ",TCL_STATIC);
  2471.         return TCL_ERROR;
  2472.     }
  2473.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_pagesize_p")) {
  2474.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_pagesize_height_get. Expected _PDF_pagesize_p, received ", TCL_STATIC);
  2475.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  2476.         return TCL_ERROR;
  2477.     }
  2478.     _result = (float )PDF_pagesize_height_get(_arg0);
  2479.     Tcl_PrintDouble(interp,(double) _result, interp->result);
  2480.     return TCL_OK;
  2481. }
  2482. /* methodcmd.swg : Tcl method invocation */
  2483.  
  2484. static int TclPDF_pagesizeMethodCmd(ClientData clientData, Tcl_Interp *interp, int argc, char **argv) {
  2485.     int (*cmd)(ClientData, Tcl_Interp *, int, char **) = 0;
  2486.     char temp[256], *oldarg;
  2487.     int rcode;
  2488.     int length;
  2489.     char c;
  2490.  
  2491.     if (argc < 2) {
  2492.         Tcl_SetResult(interp,"PDF_pagesize methods : { cget configure  }",TCL_STATIC);
  2493.         return TCL_ERROR;
  2494.     }
  2495.     c = argv[1][0];
  2496.     length = strlen(argv[1]);
  2497.     SWIG_MakePtr(temp,(void *) clientData, "_PDF_pagesize_p");
  2498.     if (0);
  2499.     
  2500.     else if ((c == 'c') && (strncmp(argv[1],"configure",length) == 0) && (length >= 2)) {
  2501.       int i = 2;
  2502.       cmd = 0;
  2503.       while (i+1 < argc) {
  2504.                     if (strcmp(argv[i],"-width") == 0) {
  2505.                     cmd = _wrap_PDF_pagesize_width_set;
  2506.                 }  else if (strcmp(argv[i],"-height") == 0) {
  2507.                     cmd = _wrap_PDF_pagesize_height_set;
  2508.                 } 
  2509.        if (cmd) {
  2510.          oldarg = argv[i];
  2511.          argv[i] = &temp[0];
  2512.          rcode = (*cmd)(clientData,interp,3,&argv[i-1]);
  2513.          argv[i] = oldarg;
  2514.          if (rcode == TCL_ERROR) return rcode;
  2515.          cmd = 0;
  2516.        } else {
  2517.          Tcl_SetResult(interp,"Invalid configure option. Must be { -width -height  }",TCL_STATIC);
  2518.          return TCL_ERROR;
  2519.        }
  2520.     i+=2;
  2521.       }
  2522.       if ((i < argc) || (i == 2)) {
  2523.     Tcl_SetResult(interp,"{ -width -height  }",TCL_STATIC);
  2524.     return TCL_ERROR;
  2525.       }
  2526.       return TCL_OK;
  2527.     } else if ((c == 'c') && (strncmp(argv[1],"cget",length) == 0) && (length >= 2)) {
  2528.             if (argc == 3) {
  2529.           if (0) {}
  2530.                           if (strcmp(argv[2],"-width") == 0) {
  2531.                     cmd = _wrap_PDF_pagesize_width_get;
  2532.                 }  else if (strcmp(argv[2],"-height") == 0) {
  2533.                     cmd = _wrap_PDF_pagesize_height_get;
  2534.                 } 
  2535.          else if (strcmp(argv[2],"-this") == 0) {
  2536.                    SWIG_MakePtr(interp->result,(void *) clientData, "_PDF_pagesize_p");
  2537.                    return TCL_OK;
  2538.          }
  2539.           if (cmd) {
  2540.         oldarg = argv[2];
  2541.         argv[2] = &temp[0];
  2542.         rcode = (*cmd)(clientData,interp,argc-1,&argv[1]);
  2543.         argv[2] = oldarg;
  2544.         return rcode;
  2545.           } else {
  2546.         Tcl_SetResult(interp,"Invalid cget option. Must be { -this -width -height  }",TCL_STATIC);
  2547.         return TCL_ERROR;
  2548.           }
  2549.         } else {
  2550.           Tcl_SetResult(interp,"{ -this -width -height  }", TCL_STATIC);
  2551.           return TCL_ERROR;
  2552.         }
  2553.     }
  2554.     if (!cmd) {
  2555.         Tcl_SetResult(interp,"Invalid Method. Must be { cget configure }",TCL_STATIC);
  2556.         return TCL_ERROR;
  2557.     }
  2558.     oldarg = argv[1];
  2559.     argv[1] = &temp[0];
  2560.     rcode = (*cmd)(clientData,interp,argc,argv);
  2561.     argv[1] = oldarg;
  2562.     return rcode;
  2563. }
  2564. /* objcmd.swg : Tcl object creation */
  2565.  
  2566. static int TclPDF_pagesizeCmd(ClientData clientData, Tcl_Interp *interp, int argc, char **argv) {
  2567.     void (*del)(ClientData) = 0;
  2568.     char *name = 0;
  2569.     int (*cmd)(ClientData, Tcl_Interp *, int, char **) = 0;
  2570.     PDF_pagesize * newObj = 0;
  2571.     int firstarg = 0;
  2572.     int thisarg = 0;
  2573.     if (argc == 1) {
  2574.         cmd = 0;
  2575.     } else {
  2576.         if (strcmp(argv[1],"-this") == 0) thisarg = 2;
  2577.         else if (strcmp(argv[1],"-args") == 0) {
  2578.             firstarg = 1;
  2579.             cmd = 0;
  2580.         } else if (argc == 2) {
  2581.             firstarg = 1;
  2582.             name = argv[1];
  2583.             cmd = 0;
  2584.         } else if (argc >= 3) {
  2585.             name = argv[1];
  2586.             if (strcmp(argv[2],"-this") == 0) thisarg = 3;
  2587.             else {
  2588.                 firstarg = 1;
  2589.                 cmd = 0;
  2590.             }
  2591.         }
  2592.     }
  2593.     if (cmd) {
  2594.         int result;
  2595.         result = (*cmd)(clientData,interp,argc-firstarg,&argv[firstarg]);
  2596.         if (result == TCL_OK) {
  2597.             SWIG_GetPtr(interp->result,(void **) &newObj,"_PDF_pagesize_p");
  2598.         } else { return result; }
  2599.         if (!name) name = interp->result;
  2600.         del = 0;
  2601.     } else if (thisarg > 0) { 
  2602.         if (thisarg < argc) {
  2603.             char *r;
  2604.             r = SWIG_GetPtr(argv[thisarg],(void **) &newObj,"_PDF_pagesize_p");
  2605.             if (r) {
  2606.                 interp->result = "Type error. not a PDF_pagesize object.";
  2607.                 return TCL_ERROR;
  2608.             }
  2609.             if (!name) name = argv[thisarg];
  2610.         /* Return value is same as pointer value */
  2611.         Tcl_SetResult(interp,argv[thisarg],TCL_VOLATILE);
  2612.         } else {
  2613.             interp->result = "wrong # args.";
  2614.             return TCL_ERROR;
  2615.         }
  2616.     } else {
  2617.         interp->result = "No constructor available.";
  2618.         return TCL_ERROR;
  2619.     }
  2620.     {
  2621.       Tcl_CmdInfo dummy;
  2622.       if (!Tcl_GetCommandInfo(interp,name,&dummy)) {
  2623.     Tcl_CreateCommand(interp,name, TclPDF_pagesizeMethodCmd, (ClientData) newObj, del);
  2624.     return TCL_OK;
  2625.       } else {
  2626.     Tcl_SetResult(interp,"",TCL_VOLATILE);
  2627.     Tcl_AppendResult(interp,"Object ", name, " already exists!", (char *) NULL);
  2628.     return TCL_ERROR;
  2629.       }
  2630.     }
  2631. }
  2632.  
  2633.  
  2634. #define PDF_info_binary_mode_set(_swigobj,_swigval) (_swigobj->binary_mode = _swigval,_swigval)
  2635. static int _wrap_PDF_info_binary_mode_set(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  2636.  
  2637.     bool  _result;
  2638.     PDF_info * _arg0;
  2639.     bool  _arg1;
  2640.  
  2641.     clientData = clientData; argv = argv;
  2642.     if ((argc < 3) || (argc > 3)) {
  2643.         Tcl_SetResult(interp, "Wrong # args. PDF_info_binary_mode_set { PDF_info * } { bool  } ",TCL_STATIC);
  2644.         return TCL_ERROR;
  2645.     }
  2646.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_info_p")) {
  2647.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_info_binary_mode_set. Expected _PDF_info_p, received ", TCL_STATIC);
  2648.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  2649.         return TCL_ERROR;
  2650.     }
  2651.     _arg1 = (bool ) atol(argv[2]);
  2652.     _result = (bool )PDF_info_binary_mode_set(_arg0,_arg1);
  2653.     sprintf(interp->result,"%ld", (long) _result);
  2654.     return TCL_OK;
  2655. }
  2656. #define PDF_info_binary_mode_get(_swigobj) ((bool ) _swigobj->binary_mode)
  2657. static int _wrap_PDF_info_binary_mode_get(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  2658.  
  2659.     bool  _result;
  2660.     PDF_info * _arg0;
  2661.  
  2662.     clientData = clientData; argv = argv;
  2663.     if ((argc < 2) || (argc > 2)) {
  2664.         Tcl_SetResult(interp, "Wrong # args. PDF_info_binary_mode_get { PDF_info * } ",TCL_STATIC);
  2665.         return TCL_ERROR;
  2666.     }
  2667.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_info_p")) {
  2668.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_info_binary_mode_get. Expected _PDF_info_p, received ", TCL_STATIC);
  2669.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  2670.         return TCL_ERROR;
  2671.     }
  2672.     _result = (bool )PDF_info_binary_mode_get(_arg0);
  2673.     sprintf(interp->result,"%ld", (long) _result);
  2674.     return TCL_OK;
  2675. }
  2676. #define PDF_info_required_compatibility_set(_swigobj,_swigval) (_swigobj->required_compatibility = _swigval,_swigval)
  2677. static int _wrap_PDF_info_required_compatibility_set(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  2678.  
  2679.     PDF_compat_mode  _result;
  2680.     PDF_info * _arg0;
  2681.     PDF_compat_mode  _arg1;
  2682.  
  2683.     clientData = clientData; argv = argv;
  2684.     if ((argc < 3) || (argc > 3)) {
  2685.         Tcl_SetResult(interp, "Wrong # args. PDF_info_required_compatibility_set { PDF_info * } { PDF_compat_mode  } ",TCL_STATIC);
  2686.         return TCL_ERROR;
  2687.     }
  2688.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_info_p")) {
  2689.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_info_required_compatibility_set. Expected _PDF_info_p, received ", TCL_STATIC);
  2690.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  2691.         return TCL_ERROR;
  2692.     }
  2693.     _arg1 = (PDF_compat_mode ) atol(argv[2]);
  2694.     _result = (PDF_compat_mode )PDF_info_required_compatibility_set(_arg0,_arg1);
  2695.     sprintf(interp->result,"%ld", (long) _result);
  2696.     return TCL_OK;
  2697. }
  2698. #define PDF_info_required_compatibility_get(_swigobj) ((PDF_compat_mode ) _swigobj->required_compatibility)
  2699. static int _wrap_PDF_info_required_compatibility_get(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  2700.  
  2701.     PDF_compat_mode  _result;
  2702.     PDF_info * _arg0;
  2703.  
  2704.     clientData = clientData; argv = argv;
  2705.     if ((argc < 2) || (argc > 2)) {
  2706.         Tcl_SetResult(interp, "Wrong # args. PDF_info_required_compatibility_get { PDF_info * } ",TCL_STATIC);
  2707.         return TCL_ERROR;
  2708.     }
  2709.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_info_p")) {
  2710.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_info_required_compatibility_get. Expected _PDF_info_p, received ", TCL_STATIC);
  2711.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  2712.         return TCL_ERROR;
  2713.     }
  2714.     _result = (PDF_compat_mode )PDF_info_required_compatibility_get(_arg0);
  2715.     sprintf(interp->result,"%ld", (long) _result);
  2716.     return TCL_OK;
  2717. }
  2718. static char * PDF_info_Keywords_set(PDF_info *obj, char *val) {
  2719.     if (obj->Keywords) free(obj->Keywords);
  2720.     obj->Keywords = (char *) malloc(strlen(val)+1);
  2721.     strcpy(obj->Keywords,val);
  2722.     return val;
  2723. }
  2724. static int _wrap_PDF_info_Keywords_set(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  2725.  
  2726.     char * _result;
  2727.     PDF_info * _arg0;
  2728.     char * _arg1;
  2729.  
  2730.     clientData = clientData; argv = argv;
  2731.     if ((argc < 3) || (argc > 3)) {
  2732.         Tcl_SetResult(interp, "Wrong # args. PDF_info_Keywords_set { PDF_info * } { char * } ",TCL_STATIC);
  2733.         return TCL_ERROR;
  2734.     }
  2735.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_info_p")) {
  2736.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_info_Keywords_set. Expected _PDF_info_p, received ", TCL_STATIC);
  2737.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  2738.         return TCL_ERROR;
  2739.     }
  2740.     _arg1 = argv[2];
  2741.     _result = (char *)PDF_info_Keywords_set(_arg0,_arg1);
  2742.     Tcl_SetResult(interp, (char *) _result, TCL_VOLATILE);
  2743.     return TCL_OK;
  2744. }
  2745. #define PDF_info_Keywords_get(_swigobj) ((char *) _swigobj->Keywords)
  2746. static int _wrap_PDF_info_Keywords_get(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  2747.  
  2748.     char * _result;
  2749.     PDF_info * _arg0;
  2750.  
  2751.     clientData = clientData; argv = argv;
  2752.     if ((argc < 2) || (argc > 2)) {
  2753.         Tcl_SetResult(interp, "Wrong # args. PDF_info_Keywords_get { PDF_info * } ",TCL_STATIC);
  2754.         return TCL_ERROR;
  2755.     }
  2756.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_info_p")) {
  2757.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_info_Keywords_get. Expected _PDF_info_p, received ", TCL_STATIC);
  2758.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  2759.         return TCL_ERROR;
  2760.     }
  2761.     _result = (char *)PDF_info_Keywords_get(_arg0);
  2762.     Tcl_SetResult(interp, (char *) _result, TCL_VOLATILE);
  2763.     return TCL_OK;
  2764. }
  2765. static char * PDF_info_Subject_set(PDF_info *obj, char *val) {
  2766.     if (obj->Subject) free(obj->Subject);
  2767.     obj->Subject = (char *) malloc(strlen(val)+1);
  2768.     strcpy(obj->Subject,val);
  2769.     return val;
  2770. }
  2771. static int _wrap_PDF_info_Subject_set(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  2772.  
  2773.     char * _result;
  2774.     PDF_info * _arg0;
  2775.     char * _arg1;
  2776.  
  2777.     clientData = clientData; argv = argv;
  2778.     if ((argc < 3) || (argc > 3)) {
  2779.         Tcl_SetResult(interp, "Wrong # args. PDF_info_Subject_set { PDF_info * } { char * } ",TCL_STATIC);
  2780.         return TCL_ERROR;
  2781.     }
  2782.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_info_p")) {
  2783.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_info_Subject_set. Expected _PDF_info_p, received ", TCL_STATIC);
  2784.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  2785.         return TCL_ERROR;
  2786.     }
  2787.     _arg1 = argv[2];
  2788.     _result = (char *)PDF_info_Subject_set(_arg0,_arg1);
  2789.     Tcl_SetResult(interp, (char *) _result, TCL_VOLATILE);
  2790.     return TCL_OK;
  2791. }
  2792. #define PDF_info_Subject_get(_swigobj) ((char *) _swigobj->Subject)
  2793. static int _wrap_PDF_info_Subject_get(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  2794.  
  2795.     char * _result;
  2796.     PDF_info * _arg0;
  2797.  
  2798.     clientData = clientData; argv = argv;
  2799.     if ((argc < 2) || (argc > 2)) {
  2800.         Tcl_SetResult(interp, "Wrong # args. PDF_info_Subject_get { PDF_info * } ",TCL_STATIC);
  2801.         return TCL_ERROR;
  2802.     }
  2803.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_info_p")) {
  2804.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_info_Subject_get. Expected _PDF_info_p, received ", TCL_STATIC);
  2805.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  2806.         return TCL_ERROR;
  2807.     }
  2808.     _result = (char *)PDF_info_Subject_get(_arg0);
  2809.     Tcl_SetResult(interp, (char *) _result, TCL_VOLATILE);
  2810.     return TCL_OK;
  2811. }
  2812. static char * PDF_info_ModDate_set(PDF_info *obj, char *val) {
  2813.     if (obj->ModDate) free(obj->ModDate);
  2814.     obj->ModDate = (char *) malloc(strlen(val)+1);
  2815.     strcpy(obj->ModDate,val);
  2816.     return val;
  2817. }
  2818. static int _wrap_PDF_info_ModDate_set(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  2819.  
  2820.     char * _result;
  2821.     PDF_info * _arg0;
  2822.     char * _arg1;
  2823.  
  2824.     clientData = clientData; argv = argv;
  2825.     if ((argc < 3) || (argc > 3)) {
  2826.         Tcl_SetResult(interp, "Wrong # args. PDF_info_ModDate_set { PDF_info * } { char * } ",TCL_STATIC);
  2827.         return TCL_ERROR;
  2828.     }
  2829.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_info_p")) {
  2830.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_info_ModDate_set. Expected _PDF_info_p, received ", TCL_STATIC);
  2831.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  2832.         return TCL_ERROR;
  2833.     }
  2834.     _arg1 = argv[2];
  2835.     _result = (char *)PDF_info_ModDate_set(_arg0,_arg1);
  2836.     Tcl_SetResult(interp, (char *) _result, TCL_VOLATILE);
  2837.     return TCL_OK;
  2838. }
  2839. #define PDF_info_ModDate_get(_swigobj) ((char *) _swigobj->ModDate)
  2840. static int _wrap_PDF_info_ModDate_get(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  2841.  
  2842.     char * _result;
  2843.     PDF_info * _arg0;
  2844.  
  2845.     clientData = clientData; argv = argv;
  2846.     if ((argc < 2) || (argc > 2)) {
  2847.         Tcl_SetResult(interp, "Wrong # args. PDF_info_ModDate_get { PDF_info * } ",TCL_STATIC);
  2848.         return TCL_ERROR;
  2849.     }
  2850.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_info_p")) {
  2851.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_info_ModDate_get. Expected _PDF_info_p, received ", TCL_STATIC);
  2852.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  2853.         return TCL_ERROR;
  2854.     }
  2855.     _result = (char *)PDF_info_ModDate_get(_arg0);
  2856.     Tcl_SetResult(interp, (char *) _result, TCL_VOLATILE);
  2857.     return TCL_OK;
  2858. }
  2859. static char * PDF_info_Title_set(PDF_info *obj, char *val) {
  2860.     if (obj->Title) free(obj->Title);
  2861.     obj->Title = (char *) malloc(strlen(val)+1);
  2862.     strcpy(obj->Title,val);
  2863.     return val;
  2864. }
  2865. static int _wrap_PDF_info_Title_set(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  2866.  
  2867.     char * _result;
  2868.     PDF_info * _arg0;
  2869.     char * _arg1;
  2870.  
  2871.     clientData = clientData; argv = argv;
  2872.     if ((argc < 3) || (argc > 3)) {
  2873.         Tcl_SetResult(interp, "Wrong # args. PDF_info_Title_set { PDF_info * } { char * } ",TCL_STATIC);
  2874.         return TCL_ERROR;
  2875.     }
  2876.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_info_p")) {
  2877.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_info_Title_set. Expected _PDF_info_p, received ", TCL_STATIC);
  2878.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  2879.         return TCL_ERROR;
  2880.     }
  2881.     _arg1 = argv[2];
  2882.     _result = (char *)PDF_info_Title_set(_arg0,_arg1);
  2883.     Tcl_SetResult(interp, (char *) _result, TCL_VOLATILE);
  2884.     return TCL_OK;
  2885. }
  2886. #define PDF_info_Title_get(_swigobj) ((char *) _swigobj->Title)
  2887. static int _wrap_PDF_info_Title_get(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  2888.  
  2889.     char * _result;
  2890.     PDF_info * _arg0;
  2891.  
  2892.     clientData = clientData; argv = argv;
  2893.     if ((argc < 2) || (argc > 2)) {
  2894.         Tcl_SetResult(interp, "Wrong # args. PDF_info_Title_get { PDF_info * } ",TCL_STATIC);
  2895.         return TCL_ERROR;
  2896.     }
  2897.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_info_p")) {
  2898.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_info_Title_get. Expected _PDF_info_p, received ", TCL_STATIC);
  2899.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  2900.         return TCL_ERROR;
  2901.     }
  2902.     _result = (char *)PDF_info_Title_get(_arg0);
  2903.     Tcl_SetResult(interp, (char *) _result, TCL_VOLATILE);
  2904.     return TCL_OK;
  2905. }
  2906. static char * PDF_info_CreationDate_set(PDF_info *obj, char *val) {
  2907.     if (obj->CreationDate) free(obj->CreationDate);
  2908.     obj->CreationDate = (char *) malloc(strlen(val)+1);
  2909.     strcpy(obj->CreationDate,val);
  2910.     return val;
  2911. }
  2912. static int _wrap_PDF_info_CreationDate_set(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  2913.  
  2914.     char * _result;
  2915.     PDF_info * _arg0;
  2916.     char * _arg1;
  2917.  
  2918.     clientData = clientData; argv = argv;
  2919.     if ((argc < 3) || (argc > 3)) {
  2920.         Tcl_SetResult(interp, "Wrong # args. PDF_info_CreationDate_set { PDF_info * } { char * } ",TCL_STATIC);
  2921.         return TCL_ERROR;
  2922.     }
  2923.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_info_p")) {
  2924.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_info_CreationDate_set. Expected _PDF_info_p, received ", TCL_STATIC);
  2925.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  2926.         return TCL_ERROR;
  2927.     }
  2928.     _arg1 = argv[2];
  2929.     _result = (char *)PDF_info_CreationDate_set(_arg0,_arg1);
  2930.     Tcl_SetResult(interp, (char *) _result, TCL_VOLATILE);
  2931.     return TCL_OK;
  2932. }
  2933. #define PDF_info_CreationDate_get(_swigobj) ((char *) _swigobj->CreationDate)
  2934. static int _wrap_PDF_info_CreationDate_get(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  2935.  
  2936.     char * _result;
  2937.     PDF_info * _arg0;
  2938.  
  2939.     clientData = clientData; argv = argv;
  2940.     if ((argc < 2) || (argc > 2)) {
  2941.         Tcl_SetResult(interp, "Wrong # args. PDF_info_CreationDate_get { PDF_info * } ",TCL_STATIC);
  2942.         return TCL_ERROR;
  2943.     }
  2944.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_info_p")) {
  2945.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_info_CreationDate_get. Expected _PDF_info_p, received ", TCL_STATIC);
  2946.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  2947.         return TCL_ERROR;
  2948.     }
  2949.     _result = (char *)PDF_info_CreationDate_get(_arg0);
  2950.     Tcl_SetResult(interp, (char *) _result, TCL_VOLATILE);
  2951.     return TCL_OK;
  2952. }
  2953. static char * PDF_info_Creator_set(PDF_info *obj, char *val) {
  2954.     if (obj->Creator) free(obj->Creator);
  2955.     obj->Creator = (char *) malloc(strlen(val)+1);
  2956.     strcpy(obj->Creator,val);
  2957.     return val;
  2958. }
  2959. static int _wrap_PDF_info_Creator_set(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  2960.  
  2961.     char * _result;
  2962.     PDF_info * _arg0;
  2963.     char * _arg1;
  2964.  
  2965.     clientData = clientData; argv = argv;
  2966.     if ((argc < 3) || (argc > 3)) {
  2967.         Tcl_SetResult(interp, "Wrong # args. PDF_info_Creator_set { PDF_info * } { char * } ",TCL_STATIC);
  2968.         return TCL_ERROR;
  2969.     }
  2970.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_info_p")) {
  2971.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_info_Creator_set. Expected _PDF_info_p, received ", TCL_STATIC);
  2972.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  2973.         return TCL_ERROR;
  2974.     }
  2975.     _arg1 = argv[2];
  2976.     _result = (char *)PDF_info_Creator_set(_arg0,_arg1);
  2977.     Tcl_SetResult(interp, (char *) _result, TCL_VOLATILE);
  2978.     return TCL_OK;
  2979. }
  2980. #define PDF_info_Creator_get(_swigobj) ((char *) _swigobj->Creator)
  2981. static int _wrap_PDF_info_Creator_get(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  2982.  
  2983.     char * _result;
  2984.     PDF_info * _arg0;
  2985.  
  2986.     clientData = clientData; argv = argv;
  2987.     if ((argc < 2) || (argc > 2)) {
  2988.         Tcl_SetResult(interp, "Wrong # args. PDF_info_Creator_get { PDF_info * } ",TCL_STATIC);
  2989.         return TCL_ERROR;
  2990.     }
  2991.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_info_p")) {
  2992.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_info_Creator_get. Expected _PDF_info_p, received ", TCL_STATIC);
  2993.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  2994.         return TCL_ERROR;
  2995.     }
  2996.     _result = (char *)PDF_info_Creator_get(_arg0);
  2997.     Tcl_SetResult(interp, (char *) _result, TCL_VOLATILE);
  2998.     return TCL_OK;
  2999. }
  3000. static char * PDF_info_Author_set(PDF_info *obj, char *val) {
  3001.     if (obj->Author) free(obj->Author);
  3002.     obj->Author = (char *) malloc(strlen(val)+1);
  3003.     strcpy(obj->Author,val);
  3004.     return val;
  3005. }
  3006. static int _wrap_PDF_info_Author_set(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  3007.  
  3008.     char * _result;
  3009.     PDF_info * _arg0;
  3010.     char * _arg1;
  3011.  
  3012.     clientData = clientData; argv = argv;
  3013.     if ((argc < 3) || (argc > 3)) {
  3014.         Tcl_SetResult(interp, "Wrong # args. PDF_info_Author_set { PDF_info * } { char * } ",TCL_STATIC);
  3015.         return TCL_ERROR;
  3016.     }
  3017.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_info_p")) {
  3018.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_info_Author_set. Expected _PDF_info_p, received ", TCL_STATIC);
  3019.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  3020.         return TCL_ERROR;
  3021.     }
  3022.     _arg1 = argv[2];
  3023.     _result = (char *)PDF_info_Author_set(_arg0,_arg1);
  3024.     Tcl_SetResult(interp, (char *) _result, TCL_VOLATILE);
  3025.     return TCL_OK;
  3026. }
  3027. #define PDF_info_Author_get(_swigobj) ((char *) _swigobj->Author)
  3028. static int _wrap_PDF_info_Author_get(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  3029.  
  3030.     char * _result;
  3031.     PDF_info * _arg0;
  3032.  
  3033.     clientData = clientData; argv = argv;
  3034.     if ((argc < 2) || (argc > 2)) {
  3035.         Tcl_SetResult(interp, "Wrong # args. PDF_info_Author_get { PDF_info * } ",TCL_STATIC);
  3036.         return TCL_ERROR;
  3037.     }
  3038.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_info_p")) {
  3039.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_info_Author_get. Expected _PDF_info_p, received ", TCL_STATIC);
  3040.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  3041.         return TCL_ERROR;
  3042.     }
  3043.     _result = (char *)PDF_info_Author_get(_arg0);
  3044.     Tcl_SetResult(interp, (char *) _result, TCL_VOLATILE);
  3045.     return TCL_OK;
  3046. }
  3047. static char * PDF_info_fontpath_set(PDF_info *obj, char *val) {
  3048.     if (obj->fontpath) free(obj->fontpath);
  3049.     obj->fontpath = (char *) malloc(strlen(val)+1);
  3050.     strcpy(obj->fontpath,val);
  3051.     return val;
  3052. }
  3053. static int _wrap_PDF_info_fontpath_set(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  3054.  
  3055.     char * _result;
  3056.     PDF_info * _arg0;
  3057.     char * _arg1;
  3058.  
  3059.     clientData = clientData; argv = argv;
  3060.     if ((argc < 3) || (argc > 3)) {
  3061.         Tcl_SetResult(interp, "Wrong # args. PDF_info_fontpath_set { PDF_info * } { char * } ",TCL_STATIC);
  3062.         return TCL_ERROR;
  3063.     }
  3064.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_info_p")) {
  3065.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_info_fontpath_set. Expected _PDF_info_p, received ", TCL_STATIC);
  3066.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  3067.         return TCL_ERROR;
  3068.     }
  3069.     _arg1 = argv[2];
  3070.     _result = (char *)PDF_info_fontpath_set(_arg0,_arg1);
  3071.     Tcl_SetResult(interp, (char *) _result, TCL_VOLATILE);
  3072.     return TCL_OK;
  3073. }
  3074. #define PDF_info_fontpath_get(_swigobj) ((char *) _swigobj->fontpath)
  3075. static int _wrap_PDF_info_fontpath_get(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  3076.  
  3077.     char * _result;
  3078.     PDF_info * _arg0;
  3079.  
  3080.     clientData = clientData; argv = argv;
  3081.     if ((argc < 2) || (argc > 2)) {
  3082.         Tcl_SetResult(interp, "Wrong # args. PDF_info_fontpath_get { PDF_info * } ",TCL_STATIC);
  3083.         return TCL_ERROR;
  3084.     }
  3085.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_info_p")) {
  3086.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_info_fontpath_get. Expected _PDF_info_p, received ", TCL_STATIC);
  3087.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  3088.         return TCL_ERROR;
  3089.     }
  3090.     _result = (char *)PDF_info_fontpath_get(_arg0);
  3091.     Tcl_SetResult(interp, (char *) _result, TCL_VOLATILE);
  3092.     return TCL_OK;
  3093. }
  3094. /* methodcmd.swg : Tcl method invocation */
  3095.  
  3096. static int TclPDF_infoMethodCmd(ClientData clientData, Tcl_Interp *interp, int argc, char **argv) {
  3097.     int (*cmd)(ClientData, Tcl_Interp *, int, char **) = 0;
  3098.     char temp[256], *oldarg;
  3099.     int rcode;
  3100.     int length;
  3101.     char c;
  3102.  
  3103.     if (argc < 2) {
  3104.         Tcl_SetResult(interp,"PDF_info methods : { cget configure  }",TCL_STATIC);
  3105.         return TCL_ERROR;
  3106.     }
  3107.     c = argv[1][0];
  3108.     length = strlen(argv[1]);
  3109.     SWIG_MakePtr(temp,(void *) clientData, "_PDF_info_p");
  3110.     if (0);
  3111.     
  3112.     else if ((c == 'c') && (strncmp(argv[1],"configure",length) == 0) && (length >= 2)) {
  3113.       int i = 2;
  3114.       cmd = 0;
  3115.       while (i+1 < argc) {
  3116.                     if (strcmp(argv[i],"-binary_mode") == 0) {
  3117.                     cmd = _wrap_PDF_info_binary_mode_set;
  3118.                 }  else if (strcmp(argv[i],"-required_compatibility") == 0) {
  3119.                     cmd = _wrap_PDF_info_required_compatibility_set;
  3120.                 }  else if (strcmp(argv[i],"-Keywords") == 0) {
  3121.                     cmd = _wrap_PDF_info_Keywords_set;
  3122.                 }  else if (strcmp(argv[i],"-Subject") == 0) {
  3123.                     cmd = _wrap_PDF_info_Subject_set;
  3124.                 }  else if (strcmp(argv[i],"-ModDate") == 0) {
  3125.                     cmd = _wrap_PDF_info_ModDate_set;
  3126.                 }  else if (strcmp(argv[i],"-Title") == 0) {
  3127.                     cmd = _wrap_PDF_info_Title_set;
  3128.                 }  else if (strcmp(argv[i],"-CreationDate") == 0) {
  3129.                     cmd = _wrap_PDF_info_CreationDate_set;
  3130.                 }  else if (strcmp(argv[i],"-Creator") == 0) {
  3131.                     cmd = _wrap_PDF_info_Creator_set;
  3132.                 }  else if (strcmp(argv[i],"-Author") == 0) {
  3133.                     cmd = _wrap_PDF_info_Author_set;
  3134.                 }  else if (strcmp(argv[i],"-fontpath") == 0) {
  3135.                     cmd = _wrap_PDF_info_fontpath_set;
  3136.                 } 
  3137.        if (cmd) {
  3138.          oldarg = argv[i];
  3139.          argv[i] = &temp[0];
  3140.          rcode = (*cmd)(clientData,interp,3,&argv[i-1]);
  3141.          argv[i] = oldarg;
  3142.          if (rcode == TCL_ERROR) return rcode;
  3143.          cmd = 0;
  3144.        } else {
  3145.          Tcl_SetResult(interp,"Invalid configure option. Must be { -binary_mode -required_compatibility -Keywords -Subject -ModDate -Title -CreationDate -Creator -Author -fontpath  }",TCL_STATIC);
  3146.          return TCL_ERROR;
  3147.        }
  3148.     i+=2;
  3149.       }
  3150.       if ((i < argc) || (i == 2)) {
  3151.     Tcl_SetResult(interp,"{ -binary_mode -required_compatibility -Keywords -Subject -ModDate -Title -CreationDate -Creator -Author -fontpath  }",TCL_STATIC);
  3152.     return TCL_ERROR;
  3153.       }
  3154.       return TCL_OK;
  3155.     } else if ((c == 'c') && (strncmp(argv[1],"cget",length) == 0) && (length >= 2)) {
  3156.             if (argc == 3) {
  3157.           if (0) {}
  3158.                           if (strcmp(argv[2],"-binary_mode") == 0) {
  3159.                     cmd = _wrap_PDF_info_binary_mode_get;
  3160.                 }  else if (strcmp(argv[2],"-required_compatibility") == 0) {
  3161.                     cmd = _wrap_PDF_info_required_compatibility_get;
  3162.                 }  else if (strcmp(argv[2],"-Keywords") == 0) {
  3163.                     cmd = _wrap_PDF_info_Keywords_get;
  3164.                 }  else if (strcmp(argv[2],"-Subject") == 0) {
  3165.                     cmd = _wrap_PDF_info_Subject_get;
  3166.                 }  else if (strcmp(argv[2],"-ModDate") == 0) {
  3167.                     cmd = _wrap_PDF_info_ModDate_get;
  3168.                 }  else if (strcmp(argv[2],"-Title") == 0) {
  3169.                     cmd = _wrap_PDF_info_Title_get;
  3170.                 }  else if (strcmp(argv[2],"-CreationDate") == 0) {
  3171.                     cmd = _wrap_PDF_info_CreationDate_get;
  3172.                 }  else if (strcmp(argv[2],"-Creator") == 0) {
  3173.                     cmd = _wrap_PDF_info_Creator_get;
  3174.                 }  else if (strcmp(argv[2],"-Author") == 0) {
  3175.                     cmd = _wrap_PDF_info_Author_get;
  3176.                 }  else if (strcmp(argv[2],"-fontpath") == 0) {
  3177.                     cmd = _wrap_PDF_info_fontpath_get;
  3178.                 } 
  3179.          else if (strcmp(argv[2],"-this") == 0) {
  3180.                    SWIG_MakePtr(interp->result,(void *) clientData, "_PDF_info_p");
  3181.                    return TCL_OK;
  3182.          }
  3183.           if (cmd) {
  3184.         oldarg = argv[2];
  3185.         argv[2] = &temp[0];
  3186.         rcode = (*cmd)(clientData,interp,argc-1,&argv[1]);
  3187.         argv[2] = oldarg;
  3188.         return rcode;
  3189.           } else {
  3190.         Tcl_SetResult(interp,"Invalid cget option. Must be { -this -binary_mode -required_compatibility -Keywords -Subject -ModDate -Title -CreationDate -Creator -Author -fontpath  }",TCL_STATIC);
  3191.         return TCL_ERROR;
  3192.           }
  3193.         } else {
  3194.           Tcl_SetResult(interp,"{ -this -binary_mode -required_compatibility -Keywords -Subject -ModDate -Title -CreationDate -Creator -Author -fontpath  }", TCL_STATIC);
  3195.           return TCL_ERROR;
  3196.         }
  3197.     }
  3198.     if (!cmd) {
  3199.         Tcl_SetResult(interp,"Invalid Method. Must be { cget configure }",TCL_STATIC);
  3200.         return TCL_ERROR;
  3201.     }
  3202.     oldarg = argv[1];
  3203.     argv[1] = &temp[0];
  3204.     rcode = (*cmd)(clientData,interp,argc,argv);
  3205.     argv[1] = oldarg;
  3206.     return rcode;
  3207. }
  3208. /* objcmd.swg : Tcl object creation */
  3209.  
  3210. static int TclPDF_infoCmd(ClientData clientData, Tcl_Interp *interp, int argc, char **argv) {
  3211.     void (*del)(ClientData) = 0;
  3212.     char *name = 0;
  3213.     int (*cmd)(ClientData, Tcl_Interp *, int, char **) = 0;
  3214.     PDF_info * newObj = 0;
  3215.     int firstarg = 0;
  3216.     int thisarg = 0;
  3217.     if (argc == 1) {
  3218.         cmd = 0;
  3219.     } else {
  3220.         if (strcmp(argv[1],"-this") == 0) thisarg = 2;
  3221.         else if (strcmp(argv[1],"-args") == 0) {
  3222.             firstarg = 1;
  3223.             cmd = 0;
  3224.         } else if (argc == 2) {
  3225.             firstarg = 1;
  3226.             name = argv[1];
  3227.             cmd = 0;
  3228.         } else if (argc >= 3) {
  3229.             name = argv[1];
  3230.             if (strcmp(argv[2],"-this") == 0) thisarg = 3;
  3231.             else {
  3232.                 firstarg = 1;
  3233.                 cmd = 0;
  3234.             }
  3235.         }
  3236.     }
  3237.     if (cmd) {
  3238.         int result;
  3239.         result = (*cmd)(clientData,interp,argc-firstarg,&argv[firstarg]);
  3240.         if (result == TCL_OK) {
  3241.             SWIG_GetPtr(interp->result,(void **) &newObj,"_PDF_info_p");
  3242.         } else { return result; }
  3243.         if (!name) name = interp->result;
  3244.         del = 0;
  3245.     } else if (thisarg > 0) { 
  3246.         if (thisarg < argc) {
  3247.             char *r;
  3248.             r = SWIG_GetPtr(argv[thisarg],(void **) &newObj,"_PDF_info_p");
  3249.             if (r) {
  3250.                 interp->result = "Type error. not a PDF_info object.";
  3251.                 return TCL_ERROR;
  3252.             }
  3253.             if (!name) name = argv[thisarg];
  3254.         /* Return value is same as pointer value */
  3255.         Tcl_SetResult(interp,argv[thisarg],TCL_VOLATILE);
  3256.         } else {
  3257.             interp->result = "wrong # args.";
  3258.             return TCL_ERROR;
  3259.         }
  3260.     } else {
  3261.         interp->result = "No constructor available.";
  3262.         return TCL_ERROR;
  3263.     }
  3264.     {
  3265.       Tcl_CmdInfo dummy;
  3266.       if (!Tcl_GetCommandInfo(interp,name,&dummy)) {
  3267.     Tcl_CreateCommand(interp,name, TclPDF_infoMethodCmd, (ClientData) newObj, del);
  3268.     return TCL_OK;
  3269.       } else {
  3270.     Tcl_SetResult(interp,"",TCL_VOLATILE);
  3271.     Tcl_AppendResult(interp,"Object ", name, " already exists!", (char *) NULL);
  3272.     return TCL_ERROR;
  3273.       }
  3274.     }
  3275. }
  3276.  
  3277.  
  3278. #define PDF_matrix_a_set(_swigobj,_swigval) (_swigobj->a = _swigval,_swigval)
  3279. static int _wrap_PDF_matrix_a_set(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  3280.  
  3281.     float  _result;
  3282.     PDF_matrix * _arg0;
  3283.     float  _arg1;
  3284.  
  3285.     clientData = clientData; argv = argv;
  3286.     if ((argc < 3) || (argc > 3)) {
  3287.         Tcl_SetResult(interp, "Wrong # args. PDF_matrix_a_set { PDF_matrix * } { float  } ",TCL_STATIC);
  3288.         return TCL_ERROR;
  3289.     }
  3290.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_matrix_p")) {
  3291.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_matrix_a_set. Expected _PDF_matrix_p, received ", TCL_STATIC);
  3292.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  3293.         return TCL_ERROR;
  3294.     }
  3295.     _arg1 = (float ) atof(argv[2]);
  3296.     _result = (float )PDF_matrix_a_set(_arg0,_arg1);
  3297.     Tcl_PrintDouble(interp,(double) _result, interp->result);
  3298.     return TCL_OK;
  3299. }
  3300. #define PDF_matrix_a_get(_swigobj) ((float ) _swigobj->a)
  3301. static int _wrap_PDF_matrix_a_get(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  3302.  
  3303.     float  _result;
  3304.     PDF_matrix * _arg0;
  3305.  
  3306.     clientData = clientData; argv = argv;
  3307.     if ((argc < 2) || (argc > 2)) {
  3308.         Tcl_SetResult(interp, "Wrong # args. PDF_matrix_a_get { PDF_matrix * } ",TCL_STATIC);
  3309.         return TCL_ERROR;
  3310.     }
  3311.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_matrix_p")) {
  3312.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_matrix_a_get. Expected _PDF_matrix_p, received ", TCL_STATIC);
  3313.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  3314.         return TCL_ERROR;
  3315.     }
  3316.     _result = (float )PDF_matrix_a_get(_arg0);
  3317.     Tcl_PrintDouble(interp,(double) _result, interp->result);
  3318.     return TCL_OK;
  3319. }
  3320. #define PDF_matrix_b_set(_swigobj,_swigval) (_swigobj->b = _swigval,_swigval)
  3321. static int _wrap_PDF_matrix_b_set(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  3322.  
  3323.     float  _result;
  3324.     PDF_matrix * _arg0;
  3325.     float  _arg1;
  3326.  
  3327.     clientData = clientData; argv = argv;
  3328.     if ((argc < 3) || (argc > 3)) {
  3329.         Tcl_SetResult(interp, "Wrong # args. PDF_matrix_b_set { PDF_matrix * } { float  } ",TCL_STATIC);
  3330.         return TCL_ERROR;
  3331.     }
  3332.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_matrix_p")) {
  3333.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_matrix_b_set. Expected _PDF_matrix_p, received ", TCL_STATIC);
  3334.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  3335.         return TCL_ERROR;
  3336.     }
  3337.     _arg1 = (float ) atof(argv[2]);
  3338.     _result = (float )PDF_matrix_b_set(_arg0,_arg1);
  3339.     Tcl_PrintDouble(interp,(double) _result, interp->result);
  3340.     return TCL_OK;
  3341. }
  3342. #define PDF_matrix_b_get(_swigobj) ((float ) _swigobj->b)
  3343. static int _wrap_PDF_matrix_b_get(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  3344.  
  3345.     float  _result;
  3346.     PDF_matrix * _arg0;
  3347.  
  3348.     clientData = clientData; argv = argv;
  3349.     if ((argc < 2) || (argc > 2)) {
  3350.         Tcl_SetResult(interp, "Wrong # args. PDF_matrix_b_get { PDF_matrix * } ",TCL_STATIC);
  3351.         return TCL_ERROR;
  3352.     }
  3353.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_matrix_p")) {
  3354.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_matrix_b_get. Expected _PDF_matrix_p, received ", TCL_STATIC);
  3355.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  3356.         return TCL_ERROR;
  3357.     }
  3358.     _result = (float )PDF_matrix_b_get(_arg0);
  3359.     Tcl_PrintDouble(interp,(double) _result, interp->result);
  3360.     return TCL_OK;
  3361. }
  3362. #define PDF_matrix_c_set(_swigobj,_swigval) (_swigobj->c = _swigval,_swigval)
  3363. static int _wrap_PDF_matrix_c_set(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  3364.  
  3365.     float  _result;
  3366.     PDF_matrix * _arg0;
  3367.     float  _arg1;
  3368.  
  3369.     clientData = clientData; argv = argv;
  3370.     if ((argc < 3) || (argc > 3)) {
  3371.         Tcl_SetResult(interp, "Wrong # args. PDF_matrix_c_set { PDF_matrix * } { float  } ",TCL_STATIC);
  3372.         return TCL_ERROR;
  3373.     }
  3374.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_matrix_p")) {
  3375.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_matrix_c_set. Expected _PDF_matrix_p, received ", TCL_STATIC);
  3376.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  3377.         return TCL_ERROR;
  3378.     }
  3379.     _arg1 = (float ) atof(argv[2]);
  3380.     _result = (float )PDF_matrix_c_set(_arg0,_arg1);
  3381.     Tcl_PrintDouble(interp,(double) _result, interp->result);
  3382.     return TCL_OK;
  3383. }
  3384. #define PDF_matrix_c_get(_swigobj) ((float ) _swigobj->c)
  3385. static int _wrap_PDF_matrix_c_get(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  3386.  
  3387.     float  _result;
  3388.     PDF_matrix * _arg0;
  3389.  
  3390.     clientData = clientData; argv = argv;
  3391.     if ((argc < 2) || (argc > 2)) {
  3392.         Tcl_SetResult(interp, "Wrong # args. PDF_matrix_c_get { PDF_matrix * } ",TCL_STATIC);
  3393.         return TCL_ERROR;
  3394.     }
  3395.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_matrix_p")) {
  3396.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_matrix_c_get. Expected _PDF_matrix_p, received ", TCL_STATIC);
  3397.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  3398.         return TCL_ERROR;
  3399.     }
  3400.     _result = (float )PDF_matrix_c_get(_arg0);
  3401.     Tcl_PrintDouble(interp,(double) _result, interp->result);
  3402.     return TCL_OK;
  3403. }
  3404. #define PDF_matrix_d_set(_swigobj,_swigval) (_swigobj->d = _swigval,_swigval)
  3405. static int _wrap_PDF_matrix_d_set(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  3406.  
  3407.     float  _result;
  3408.     PDF_matrix * _arg0;
  3409.     float  _arg1;
  3410.  
  3411.     clientData = clientData; argv = argv;
  3412.     if ((argc < 3) || (argc > 3)) {
  3413.         Tcl_SetResult(interp, "Wrong # args. PDF_matrix_d_set { PDF_matrix * } { float  } ",TCL_STATIC);
  3414.         return TCL_ERROR;
  3415.     }
  3416.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_matrix_p")) {
  3417.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_matrix_d_set. Expected _PDF_matrix_p, received ", TCL_STATIC);
  3418.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  3419.         return TCL_ERROR;
  3420.     }
  3421.     _arg1 = (float ) atof(argv[2]);
  3422.     _result = (float )PDF_matrix_d_set(_arg0,_arg1);
  3423.     Tcl_PrintDouble(interp,(double) _result, interp->result);
  3424.     return TCL_OK;
  3425. }
  3426. #define PDF_matrix_d_get(_swigobj) ((float ) _swigobj->d)
  3427. static int _wrap_PDF_matrix_d_get(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  3428.  
  3429.     float  _result;
  3430.     PDF_matrix * _arg0;
  3431.  
  3432.     clientData = clientData; argv = argv;
  3433.     if ((argc < 2) || (argc > 2)) {
  3434.         Tcl_SetResult(interp, "Wrong # args. PDF_matrix_d_get { PDF_matrix * } ",TCL_STATIC);
  3435.         return TCL_ERROR;
  3436.     }
  3437.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_matrix_p")) {
  3438.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_matrix_d_get. Expected _PDF_matrix_p, received ", TCL_STATIC);
  3439.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  3440.         return TCL_ERROR;
  3441.     }
  3442.     _result = (float )PDF_matrix_d_get(_arg0);
  3443.     Tcl_PrintDouble(interp,(double) _result, interp->result);
  3444.     return TCL_OK;
  3445. }
  3446. #define PDF_matrix_e_set(_swigobj,_swigval) (_swigobj->e = _swigval,_swigval)
  3447. static int _wrap_PDF_matrix_e_set(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  3448.  
  3449.     float  _result;
  3450.     PDF_matrix * _arg0;
  3451.     float  _arg1;
  3452.  
  3453.     clientData = clientData; argv = argv;
  3454.     if ((argc < 3) || (argc > 3)) {
  3455.         Tcl_SetResult(interp, "Wrong # args. PDF_matrix_e_set { PDF_matrix * } { float  } ",TCL_STATIC);
  3456.         return TCL_ERROR;
  3457.     }
  3458.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_matrix_p")) {
  3459.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_matrix_e_set. Expected _PDF_matrix_p, received ", TCL_STATIC);
  3460.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  3461.         return TCL_ERROR;
  3462.     }
  3463.     _arg1 = (float ) atof(argv[2]);
  3464.     _result = (float )PDF_matrix_e_set(_arg0,_arg1);
  3465.     Tcl_PrintDouble(interp,(double) _result, interp->result);
  3466.     return TCL_OK;
  3467. }
  3468. #define PDF_matrix_e_get(_swigobj) ((float ) _swigobj->e)
  3469. static int _wrap_PDF_matrix_e_get(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  3470.  
  3471.     float  _result;
  3472.     PDF_matrix * _arg0;
  3473.  
  3474.     clientData = clientData; argv = argv;
  3475.     if ((argc < 2) || (argc > 2)) {
  3476.         Tcl_SetResult(interp, "Wrong # args. PDF_matrix_e_get { PDF_matrix * } ",TCL_STATIC);
  3477.         return TCL_ERROR;
  3478.     }
  3479.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_matrix_p")) {
  3480.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_matrix_e_get. Expected _PDF_matrix_p, received ", TCL_STATIC);
  3481.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  3482.         return TCL_ERROR;
  3483.     }
  3484.     _result = (float )PDF_matrix_e_get(_arg0);
  3485.     Tcl_PrintDouble(interp,(double) _result, interp->result);
  3486.     return TCL_OK;
  3487. }
  3488. #define PDF_matrix_f_set(_swigobj,_swigval) (_swigobj->f = _swigval,_swigval)
  3489. static int _wrap_PDF_matrix_f_set(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  3490.  
  3491.     float  _result;
  3492.     PDF_matrix * _arg0;
  3493.     float  _arg1;
  3494.  
  3495.     clientData = clientData; argv = argv;
  3496.     if ((argc < 3) || (argc > 3)) {
  3497.         Tcl_SetResult(interp, "Wrong # args. PDF_matrix_f_set { PDF_matrix * } { float  } ",TCL_STATIC);
  3498.         return TCL_ERROR;
  3499.     }
  3500.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_matrix_p")) {
  3501.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_matrix_f_set. Expected _PDF_matrix_p, received ", TCL_STATIC);
  3502.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  3503.         return TCL_ERROR;
  3504.     }
  3505.     _arg1 = (float ) atof(argv[2]);
  3506.     _result = (float )PDF_matrix_f_set(_arg0,_arg1);
  3507.     Tcl_PrintDouble(interp,(double) _result, interp->result);
  3508.     return TCL_OK;
  3509. }
  3510. #define PDF_matrix_f_get(_swigobj) ((float ) _swigobj->f)
  3511. static int _wrap_PDF_matrix_f_get(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  3512.  
  3513.     float  _result;
  3514.     PDF_matrix * _arg0;
  3515.  
  3516.     clientData = clientData; argv = argv;
  3517.     if ((argc < 2) || (argc > 2)) {
  3518.         Tcl_SetResult(interp, "Wrong # args. PDF_matrix_f_get { PDF_matrix * } ",TCL_STATIC);
  3519.         return TCL_ERROR;
  3520.     }
  3521.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_matrix_p")) {
  3522.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_matrix_f_get. Expected _PDF_matrix_p, received ", TCL_STATIC);
  3523.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  3524.         return TCL_ERROR;
  3525.     }
  3526.     _result = (float )PDF_matrix_f_get(_arg0);
  3527.     Tcl_PrintDouble(interp,(double) _result, interp->result);
  3528.     return TCL_OK;
  3529. }
  3530. /* methodcmd.swg : Tcl method invocation */
  3531.  
  3532. static int TclPDF_matrixMethodCmd(ClientData clientData, Tcl_Interp *interp, int argc, char **argv) {
  3533.     int (*cmd)(ClientData, Tcl_Interp *, int, char **) = 0;
  3534.     char temp[256], *oldarg;
  3535.     int rcode;
  3536.     int length;
  3537.     char c;
  3538.  
  3539.     if (argc < 2) {
  3540.         Tcl_SetResult(interp,"PDF_matrix methods : { cget configure  }",TCL_STATIC);
  3541.         return TCL_ERROR;
  3542.     }
  3543.     c = argv[1][0];
  3544.     length = strlen(argv[1]);
  3545.     SWIG_MakePtr(temp,(void *) clientData, "_PDF_matrix_p");
  3546.     if (0);
  3547.     
  3548.     else if ((c == 'c') && (strncmp(argv[1],"configure",length) == 0) && (length >= 2)) {
  3549.       int i = 2;
  3550.       cmd = 0;
  3551.       while (i+1 < argc) {
  3552.                     if (strcmp(argv[i],"-a") == 0) {
  3553.                     cmd = _wrap_PDF_matrix_a_set;
  3554.                 }  else if (strcmp(argv[i],"-b") == 0) {
  3555.                     cmd = _wrap_PDF_matrix_b_set;
  3556.                 }  else if (strcmp(argv[i],"-c") == 0) {
  3557.                     cmd = _wrap_PDF_matrix_c_set;
  3558.                 }  else if (strcmp(argv[i],"-d") == 0) {
  3559.                     cmd = _wrap_PDF_matrix_d_set;
  3560.                 }  else if (strcmp(argv[i],"-e") == 0) {
  3561.                     cmd = _wrap_PDF_matrix_e_set;
  3562.                 }  else if (strcmp(argv[i],"-f") == 0) {
  3563.                     cmd = _wrap_PDF_matrix_f_set;
  3564.                 } 
  3565.        if (cmd) {
  3566.          oldarg = argv[i];
  3567.          argv[i] = &temp[0];
  3568.          rcode = (*cmd)(clientData,interp,3,&argv[i-1]);
  3569.          argv[i] = oldarg;
  3570.          if (rcode == TCL_ERROR) return rcode;
  3571.          cmd = 0;
  3572.        } else {
  3573.          Tcl_SetResult(interp,"Invalid configure option. Must be { -a -b -c -d -e -f  }",TCL_STATIC);
  3574.          return TCL_ERROR;
  3575.        }
  3576.     i+=2;
  3577.       }
  3578.       if ((i < argc) || (i == 2)) {
  3579.     Tcl_SetResult(interp,"{ -a -b -c -d -e -f  }",TCL_STATIC);
  3580.     return TCL_ERROR;
  3581.       }
  3582.       return TCL_OK;
  3583.     } else if ((c == 'c') && (strncmp(argv[1],"cget",length) == 0) && (length >= 2)) {
  3584.             if (argc == 3) {
  3585.           if (0) {}
  3586.                           if (strcmp(argv[2],"-a") == 0) {
  3587.                     cmd = _wrap_PDF_matrix_a_get;
  3588.                 }  else if (strcmp(argv[2],"-b") == 0) {
  3589.                     cmd = _wrap_PDF_matrix_b_get;
  3590.                 }  else if (strcmp(argv[2],"-c") == 0) {
  3591.                     cmd = _wrap_PDF_matrix_c_get;
  3592.                 }  else if (strcmp(argv[2],"-d") == 0) {
  3593.                     cmd = _wrap_PDF_matrix_d_get;
  3594.                 }  else if (strcmp(argv[2],"-e") == 0) {
  3595.                     cmd = _wrap_PDF_matrix_e_get;
  3596.                 }  else if (strcmp(argv[2],"-f") == 0) {
  3597.                     cmd = _wrap_PDF_matrix_f_get;
  3598.                 } 
  3599.          else if (strcmp(argv[2],"-this") == 0) {
  3600.                    SWIG_MakePtr(interp->result,(void *) clientData, "_PDF_matrix_p");
  3601.                    return TCL_OK;
  3602.          }
  3603.           if (cmd) {
  3604.         oldarg = argv[2];
  3605.         argv[2] = &temp[0];
  3606.         rcode = (*cmd)(clientData,interp,argc-1,&argv[1]);
  3607.         argv[2] = oldarg;
  3608.         return rcode;
  3609.           } else {
  3610.         Tcl_SetResult(interp,"Invalid cget option. Must be { -this -a -b -c -d -e -f  }",TCL_STATIC);
  3611.         return TCL_ERROR;
  3612.           }
  3613.         } else {
  3614.           Tcl_SetResult(interp,"{ -this -a -b -c -d -e -f  }", TCL_STATIC);
  3615.           return TCL_ERROR;
  3616.         }
  3617.     }
  3618.     if (!cmd) {
  3619.         Tcl_SetResult(interp,"Invalid Method. Must be { cget configure }",TCL_STATIC);
  3620.         return TCL_ERROR;
  3621.     }
  3622.     oldarg = argv[1];
  3623.     argv[1] = &temp[0];
  3624.     rcode = (*cmd)(clientData,interp,argc,argv);
  3625.     argv[1] = oldarg;
  3626.     return rcode;
  3627. }
  3628. /* objcmd.swg : Tcl object creation */
  3629.  
  3630. static int TclPDF_matrixCmd(ClientData clientData, Tcl_Interp *interp, int argc, char **argv) {
  3631.     void (*del)(ClientData) = 0;
  3632.     char *name = 0;
  3633.     int (*cmd)(ClientData, Tcl_Interp *, int, char **) = 0;
  3634.     PDF_matrix * newObj = 0;
  3635.     int firstarg = 0;
  3636.     int thisarg = 0;
  3637.     if (argc == 1) {
  3638.         cmd = 0;
  3639.     } else {
  3640.         if (strcmp(argv[1],"-this") == 0) thisarg = 2;
  3641.         else if (strcmp(argv[1],"-args") == 0) {
  3642.             firstarg = 1;
  3643.             cmd = 0;
  3644.         } else if (argc == 2) {
  3645.             firstarg = 1;
  3646.             name = argv[1];
  3647.             cmd = 0;
  3648.         } else if (argc >= 3) {
  3649.             name = argv[1];
  3650.             if (strcmp(argv[2],"-this") == 0) thisarg = 3;
  3651.             else {
  3652.                 firstarg = 1;
  3653.                 cmd = 0;
  3654.             }
  3655.         }
  3656.     }
  3657.     if (cmd) {
  3658.         int result;
  3659.         result = (*cmd)(clientData,interp,argc-firstarg,&argv[firstarg]);
  3660.         if (result == TCL_OK) {
  3661.             SWIG_GetPtr(interp->result,(void **) &newObj,"_PDF_matrix_p");
  3662.         } else { return result; }
  3663.         if (!name) name = interp->result;
  3664.         del = 0;
  3665.     } else if (thisarg > 0) { 
  3666.         if (thisarg < argc) {
  3667.             char *r;
  3668.             r = SWIG_GetPtr(argv[thisarg],(void **) &newObj,"_PDF_matrix_p");
  3669.             if (r) {
  3670.                 interp->result = "Type error. not a PDF_matrix object.";
  3671.                 return TCL_ERROR;
  3672.             }
  3673.             if (!name) name = argv[thisarg];
  3674.         /* Return value is same as pointer value */
  3675.         Tcl_SetResult(interp,argv[thisarg],TCL_VOLATILE);
  3676.         } else {
  3677.             interp->result = "wrong # args.";
  3678.             return TCL_ERROR;
  3679.         }
  3680.     } else {
  3681.         interp->result = "No constructor available.";
  3682.         return TCL_ERROR;
  3683.     }
  3684.     {
  3685.       Tcl_CmdInfo dummy;
  3686.       if (!Tcl_GetCommandInfo(interp,name,&dummy)) {
  3687.     Tcl_CreateCommand(interp,name, TclPDF_matrixMethodCmd, (ClientData) newObj, del);
  3688.     return TCL_OK;
  3689.       } else {
  3690.     Tcl_SetResult(interp,"",TCL_VOLATILE);
  3691.     Tcl_AppendResult(interp,"Object ", name, " already exists!", (char *) NULL);
  3692.     return TCL_ERROR;
  3693.       }
  3694.     }
  3695. }
  3696.  
  3697.  
  3698. #define PDF_data_source_s_next_byte_set(_swigobj,_swigval) (_swigobj->next_byte = _swigval,_swigval)
  3699. static int _wrap_PDF_data_source_s_next_byte_set(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  3700.  
  3701.     byte * _result;
  3702.     struct PDF_data_source_s * _arg0;
  3703.     byte * _arg1;
  3704.  
  3705.     clientData = clientData; argv = argv;
  3706.     if ((argc < 3) || (argc > 3)) {
  3707.         Tcl_SetResult(interp, "Wrong # args. PDF_data_source_s_next_byte_set { struct PDF_data_source_s * } { byte * } ",TCL_STATIC);
  3708.         return TCL_ERROR;
  3709.     }
  3710.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_struct_PDF_data_source_s_p")) {
  3711.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_data_source_s_next_byte_set. Expected _struct_PDF_data_source_s_p, received ", TCL_STATIC);
  3712.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  3713.         return TCL_ERROR;
  3714.     }
  3715.     if (SWIG_GetPtr(argv[2],(void **) &_arg1,"_byte_p")) {
  3716.         Tcl_SetResult(interp, "Type error in argument 2 of PDF_data_source_s_next_byte_set. Expected _byte_p, received ", TCL_STATIC);
  3717.         Tcl_AppendResult(interp, argv[2], (char *) NULL);
  3718.         return TCL_ERROR;
  3719.     }
  3720.     _result = (byte *)PDF_data_source_s_next_byte_set(_arg0,_arg1);
  3721.     SWIG_MakePtr(interp->result, (void *) _result,"_byte_p");
  3722.     return TCL_OK;
  3723. }
  3724. #define PDF_data_source_s_next_byte_get(_swigobj) ((byte *) _swigobj->next_byte)
  3725. static int _wrap_PDF_data_source_s_next_byte_get(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  3726.  
  3727.     byte * _result;
  3728.     struct PDF_data_source_s * _arg0;
  3729.  
  3730.     clientData = clientData; argv = argv;
  3731.     if ((argc < 2) || (argc > 2)) {
  3732.         Tcl_SetResult(interp, "Wrong # args. PDF_data_source_s_next_byte_get { struct PDF_data_source_s * } ",TCL_STATIC);
  3733.         return TCL_ERROR;
  3734.     }
  3735.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_struct_PDF_data_source_s_p")) {
  3736.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_data_source_s_next_byte_get. Expected _struct_PDF_data_source_s_p, received ", TCL_STATIC);
  3737.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  3738.         return TCL_ERROR;
  3739.     }
  3740.     _result = (byte *)PDF_data_source_s_next_byte_get(_arg0);
  3741.     SWIG_MakePtr(interp->result, (void *) _result,"_byte_p");
  3742.     return TCL_OK;
  3743. }
  3744. #define PDF_data_source_s_bytes_available_set(_swigobj,_swigval) (_swigobj->bytes_available = *(_swigval),_swigval)
  3745. static int _wrap_PDF_data_source_s_bytes_available_set(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  3746.  
  3747.     size_t * _result;
  3748.     struct PDF_data_source_s * _arg0;
  3749.     size_t * _arg1;
  3750.  
  3751.     clientData = clientData; argv = argv;
  3752.     if ((argc < 3) || (argc > 3)) {
  3753.         Tcl_SetResult(interp, "Wrong # args. PDF_data_source_s_bytes_available_set { struct PDF_data_source_s * } { size_t * } ",TCL_STATIC);
  3754.         return TCL_ERROR;
  3755.     }
  3756.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_struct_PDF_data_source_s_p")) {
  3757.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_data_source_s_bytes_available_set. Expected _struct_PDF_data_source_s_p, received ", TCL_STATIC);
  3758.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  3759.         return TCL_ERROR;
  3760.     }
  3761.     if (SWIG_GetPtr(argv[2],(void **) &_arg1,"_size_t_p")) {
  3762.         Tcl_SetResult(interp, "Type error in argument 2 of PDF_data_source_s_bytes_available_set. Expected _size_t_p, received ", TCL_STATIC);
  3763.         Tcl_AppendResult(interp, argv[2], (char *) NULL);
  3764.         return TCL_ERROR;
  3765.     }
  3766.     _result = (size_t *)PDF_data_source_s_bytes_available_set(_arg0,_arg1);
  3767.     SWIG_MakePtr(interp->result, (void *) _result,"_size_t_p");
  3768.     return TCL_OK;
  3769. }
  3770. #define PDF_data_source_s_bytes_available_get(_swigobj) (&_swigobj->bytes_available)
  3771. static int _wrap_PDF_data_source_s_bytes_available_get(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  3772.  
  3773.     size_t * _result;
  3774.     struct PDF_data_source_s * _arg0;
  3775.  
  3776.     clientData = clientData; argv = argv;
  3777.     if ((argc < 2) || (argc > 2)) {
  3778.         Tcl_SetResult(interp, "Wrong # args. PDF_data_source_s_bytes_available_get { struct PDF_data_source_s * } ",TCL_STATIC);
  3779.         return TCL_ERROR;
  3780.     }
  3781.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_struct_PDF_data_source_s_p")) {
  3782.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_data_source_s_bytes_available_get. Expected _struct_PDF_data_source_s_p, received ", TCL_STATIC);
  3783.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  3784.         return TCL_ERROR;
  3785.     }
  3786.     _result = (size_t *)PDF_data_source_s_bytes_available_get(_arg0);
  3787.     SWIG_MakePtr(interp->result, (void *) _result,"_size_t_p");
  3788.     return TCL_OK;
  3789. }
  3790. #define PDF_data_source_s_buffer_start_set(_swigobj,_swigval) (_swigobj->buffer_start = _swigval,_swigval)
  3791. static int _wrap_PDF_data_source_s_buffer_start_set(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  3792.  
  3793.     byte * _result;
  3794.     struct PDF_data_source_s * _arg0;
  3795.     byte * _arg1;
  3796.  
  3797.     clientData = clientData; argv = argv;
  3798.     if ((argc < 3) || (argc > 3)) {
  3799.         Tcl_SetResult(interp, "Wrong # args. PDF_data_source_s_buffer_start_set { struct PDF_data_source_s * } { byte * } ",TCL_STATIC);
  3800.         return TCL_ERROR;
  3801.     }
  3802.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_struct_PDF_data_source_s_p")) {
  3803.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_data_source_s_buffer_start_set. Expected _struct_PDF_data_source_s_p, received ", TCL_STATIC);
  3804.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  3805.         return TCL_ERROR;
  3806.     }
  3807.     if (SWIG_GetPtr(argv[2],(void **) &_arg1,"_byte_p")) {
  3808.         Tcl_SetResult(interp, "Type error in argument 2 of PDF_data_source_s_buffer_start_set. Expected _byte_p, received ", TCL_STATIC);
  3809.         Tcl_AppendResult(interp, argv[2], (char *) NULL);
  3810.         return TCL_ERROR;
  3811.     }
  3812.     _result = (byte *)PDF_data_source_s_buffer_start_set(_arg0,_arg1);
  3813.     SWIG_MakePtr(interp->result, (void *) _result,"_byte_p");
  3814.     return TCL_OK;
  3815. }
  3816. #define PDF_data_source_s_buffer_start_get(_swigobj) ((byte *) _swigobj->buffer_start)
  3817. static int _wrap_PDF_data_source_s_buffer_start_get(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  3818.  
  3819.     byte * _result;
  3820.     struct PDF_data_source_s * _arg0;
  3821.  
  3822.     clientData = clientData; argv = argv;
  3823.     if ((argc < 2) || (argc > 2)) {
  3824.         Tcl_SetResult(interp, "Wrong # args. PDF_data_source_s_buffer_start_get { struct PDF_data_source_s * } ",TCL_STATIC);
  3825.         return TCL_ERROR;
  3826.     }
  3827.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_struct_PDF_data_source_s_p")) {
  3828.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_data_source_s_buffer_start_get. Expected _struct_PDF_data_source_s_p, received ", TCL_STATIC);
  3829.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  3830.         return TCL_ERROR;
  3831.     }
  3832.     _result = (byte *)PDF_data_source_s_buffer_start_get(_arg0);
  3833.     SWIG_MakePtr(interp->result, (void *) _result,"_byte_p");
  3834.     return TCL_OK;
  3835. }
  3836. #define PDF_data_source_s_buffer_length_set(_swigobj,_swigval) (_swigobj->buffer_length = *(_swigval),_swigval)
  3837. static int _wrap_PDF_data_source_s_buffer_length_set(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  3838.  
  3839.     size_t * _result;
  3840.     struct PDF_data_source_s * _arg0;
  3841.     size_t * _arg1;
  3842.  
  3843.     clientData = clientData; argv = argv;
  3844.     if ((argc < 3) || (argc > 3)) {
  3845.         Tcl_SetResult(interp, "Wrong # args. PDF_data_source_s_buffer_length_set { struct PDF_data_source_s * } { size_t * } ",TCL_STATIC);
  3846.         return TCL_ERROR;
  3847.     }
  3848.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_struct_PDF_data_source_s_p")) {
  3849.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_data_source_s_buffer_length_set. Expected _struct_PDF_data_source_s_p, received ", TCL_STATIC);
  3850.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  3851.         return TCL_ERROR;
  3852.     }
  3853.     if (SWIG_GetPtr(argv[2],(void **) &_arg1,"_size_t_p")) {
  3854.         Tcl_SetResult(interp, "Type error in argument 2 of PDF_data_source_s_buffer_length_set. Expected _size_t_p, received ", TCL_STATIC);
  3855.         Tcl_AppendResult(interp, argv[2], (char *) NULL);
  3856.         return TCL_ERROR;
  3857.     }
  3858.     _result = (size_t *)PDF_data_source_s_buffer_length_set(_arg0,_arg1);
  3859.     SWIG_MakePtr(interp->result, (void *) _result,"_size_t_p");
  3860.     return TCL_OK;
  3861. }
  3862. #define PDF_data_source_s_buffer_length_get(_swigobj) (&_swigobj->buffer_length)
  3863. static int _wrap_PDF_data_source_s_buffer_length_get(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  3864.  
  3865.     size_t * _result;
  3866.     struct PDF_data_source_s * _arg0;
  3867.  
  3868.     clientData = clientData; argv = argv;
  3869.     if ((argc < 2) || (argc > 2)) {
  3870.         Tcl_SetResult(interp, "Wrong # args. PDF_data_source_s_buffer_length_get { struct PDF_data_source_s * } ",TCL_STATIC);
  3871.         return TCL_ERROR;
  3872.     }
  3873.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_struct_PDF_data_source_s_p")) {
  3874.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_data_source_s_buffer_length_get. Expected _struct_PDF_data_source_s_p, received ", TCL_STATIC);
  3875.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  3876.         return TCL_ERROR;
  3877.     }
  3878.     _result = (size_t *)PDF_data_source_s_buffer_length_get(_arg0);
  3879.     SWIG_MakePtr(interp->result, (void *) _result,"_size_t_p");
  3880.     return TCL_OK;
  3881. }
  3882. #define PDF_data_source_s_private_data_set(_swigobj,_swigval) (_swigobj->private_data = _swigval,_swigval)
  3883. static int _wrap_PDF_data_source_s_private_data_set(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  3884.  
  3885.     byte * _result;
  3886.     struct PDF_data_source_s * _arg0;
  3887.     byte * _arg1;
  3888.  
  3889.     clientData = clientData; argv = argv;
  3890.     if ((argc < 3) || (argc > 3)) {
  3891.         Tcl_SetResult(interp, "Wrong # args. PDF_data_source_s_private_data_set { struct PDF_data_source_s * } { byte * } ",TCL_STATIC);
  3892.         return TCL_ERROR;
  3893.     }
  3894.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_struct_PDF_data_source_s_p")) {
  3895.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_data_source_s_private_data_set. Expected _struct_PDF_data_source_s_p, received ", TCL_STATIC);
  3896.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  3897.         return TCL_ERROR;
  3898.     }
  3899.     if (SWIG_GetPtr(argv[2],(void **) &_arg1,"_byte_p")) {
  3900.         Tcl_SetResult(interp, "Type error in argument 2 of PDF_data_source_s_private_data_set. Expected _byte_p, received ", TCL_STATIC);
  3901.         Tcl_AppendResult(interp, argv[2], (char *) NULL);
  3902.         return TCL_ERROR;
  3903.     }
  3904.     _result = (byte *)PDF_data_source_s_private_data_set(_arg0,_arg1);
  3905.     SWIG_MakePtr(interp->result, (void *) _result,"_byte_p");
  3906.     return TCL_OK;
  3907. }
  3908. #define PDF_data_source_s_private_data_get(_swigobj) ((byte *) _swigobj->private_data)
  3909. static int _wrap_PDF_data_source_s_private_data_get(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  3910.  
  3911.     byte * _result;
  3912.     struct PDF_data_source_s * _arg0;
  3913.  
  3914.     clientData = clientData; argv = argv;
  3915.     if ((argc < 2) || (argc > 2)) {
  3916.         Tcl_SetResult(interp, "Wrong # args. PDF_data_source_s_private_data_get { struct PDF_data_source_s * } ",TCL_STATIC);
  3917.         return TCL_ERROR;
  3918.     }
  3919.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_struct_PDF_data_source_s_p")) {
  3920.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_data_source_s_private_data_get. Expected _struct_PDF_data_source_s_p, received ", TCL_STATIC);
  3921.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  3922.         return TCL_ERROR;
  3923.     }
  3924.     _result = (byte *)PDF_data_source_s_private_data_get(_arg0);
  3925.     SWIG_MakePtr(interp->result, (void *) _result,"_byte_p");
  3926.     return TCL_OK;
  3927. }
  3928. /* methodcmd.swg : Tcl method invocation */
  3929.  
  3930. static int TclPDF_data_source_sMethodCmd(ClientData clientData, Tcl_Interp *interp, int argc, char **argv) {
  3931.     int (*cmd)(ClientData, Tcl_Interp *, int, char **) = 0;
  3932.     char temp[256], *oldarg;
  3933.     int rcode;
  3934.     int length;
  3935.     char c;
  3936.  
  3937.     if (argc < 2) {
  3938.         Tcl_SetResult(interp,"PDF_data_source_s methods : { cget configure  }",TCL_STATIC);
  3939.         return TCL_ERROR;
  3940.     }
  3941.     c = argv[1][0];
  3942.     length = strlen(argv[1]);
  3943.     SWIG_MakePtr(temp,(void *) clientData, "_struct_PDF_data_source_s_p");
  3944.     if (0);
  3945.     
  3946.     else if ((c == 'c') && (strncmp(argv[1],"configure",length) == 0) && (length >= 2)) {
  3947.       int i = 2;
  3948.       cmd = 0;
  3949.       while (i+1 < argc) {
  3950.                     if (strcmp(argv[i],"-next_byte") == 0) {
  3951.                     cmd = _wrap_PDF_data_source_s_next_byte_set;
  3952.                 }  else if (strcmp(argv[i],"-bytes_available") == 0) {
  3953.                     cmd = _wrap_PDF_data_source_s_bytes_available_set;
  3954.                 }  else if (strcmp(argv[i],"-buffer_start") == 0) {
  3955.                     cmd = _wrap_PDF_data_source_s_buffer_start_set;
  3956.                 }  else if (strcmp(argv[i],"-buffer_length") == 0) {
  3957.                     cmd = _wrap_PDF_data_source_s_buffer_length_set;
  3958.                 }  else if (strcmp(argv[i],"-private_data") == 0) {
  3959.                     cmd = _wrap_PDF_data_source_s_private_data_set;
  3960.                 } 
  3961.        if (cmd) {
  3962.          oldarg = argv[i];
  3963.          argv[i] = &temp[0];
  3964.          rcode = (*cmd)(clientData,interp,3,&argv[i-1]);
  3965.          argv[i] = oldarg;
  3966.          if (rcode == TCL_ERROR) return rcode;
  3967.          cmd = 0;
  3968.        } else {
  3969.          Tcl_SetResult(interp,"Invalid configure option. Must be { -next_byte -bytes_available -buffer_start -buffer_length -private_data  }",TCL_STATIC);
  3970.          return TCL_ERROR;
  3971.        }
  3972.     i+=2;
  3973.       }
  3974.       if ((i < argc) || (i == 2)) {
  3975.     Tcl_SetResult(interp,"{ -next_byte -bytes_available -buffer_start -buffer_length -private_data  }",TCL_STATIC);
  3976.     return TCL_ERROR;
  3977.       }
  3978.       return TCL_OK;
  3979.     } else if ((c == 'c') && (strncmp(argv[1],"cget",length) == 0) && (length >= 2)) {
  3980.             if (argc == 3) {
  3981.           if (0) {}
  3982.                           if (strcmp(argv[2],"-next_byte") == 0) {
  3983.                     cmd = _wrap_PDF_data_source_s_next_byte_get;
  3984.                 }  else if (strcmp(argv[2],"-bytes_available") == 0) {
  3985.                     cmd = _wrap_PDF_data_source_s_bytes_available_get;
  3986.                 }  else if (strcmp(argv[2],"-buffer_start") == 0) {
  3987.                     cmd = _wrap_PDF_data_source_s_buffer_start_get;
  3988.                 }  else if (strcmp(argv[2],"-buffer_length") == 0) {
  3989.                     cmd = _wrap_PDF_data_source_s_buffer_length_get;
  3990.                 }  else if (strcmp(argv[2],"-private_data") == 0) {
  3991.                     cmd = _wrap_PDF_data_source_s_private_data_get;
  3992.                 } 
  3993.          else if (strcmp(argv[2],"-this") == 0) {
  3994.                    SWIG_MakePtr(interp->result,(void *) clientData, "_struct_PDF_data_source_s_p");
  3995.                    return TCL_OK;
  3996.          }
  3997.           if (cmd) {
  3998.         oldarg = argv[2];
  3999.         argv[2] = &temp[0];
  4000.         rcode = (*cmd)(clientData,interp,argc-1,&argv[1]);
  4001.         argv[2] = oldarg;
  4002.         return rcode;
  4003.           } else {
  4004.         Tcl_SetResult(interp,"Invalid cget option. Must be { -this -next_byte -bytes_available -buffer_start -buffer_length -private_data  }",TCL_STATIC);
  4005.         return TCL_ERROR;
  4006.           }
  4007.         } else {
  4008.           Tcl_SetResult(interp,"{ -this -next_byte -bytes_available -buffer_start -buffer_length -private_data  }", TCL_STATIC);
  4009.           return TCL_ERROR;
  4010.         }
  4011.     }
  4012.     if (!cmd) {
  4013.         Tcl_SetResult(interp,"Invalid Method. Must be { cget configure }",TCL_STATIC);
  4014.         return TCL_ERROR;
  4015.     }
  4016.     oldarg = argv[1];
  4017.     argv[1] = &temp[0];
  4018.     rcode = (*cmd)(clientData,interp,argc,argv);
  4019.     argv[1] = oldarg;
  4020.     return rcode;
  4021. }
  4022. /* objcmd.swg : Tcl object creation */
  4023.  
  4024. static int TclPDF_data_source_sCmd(ClientData clientData, Tcl_Interp *interp, int argc, char **argv) {
  4025.     void (*del)(ClientData) = 0;
  4026.     char *name = 0;
  4027.     int (*cmd)(ClientData, Tcl_Interp *, int, char **) = 0;
  4028.     struct PDF_data_source_s * newObj = 0;
  4029.     int firstarg = 0;
  4030.     int thisarg = 0;
  4031.     if (argc == 1) {
  4032.         cmd = 0;
  4033.     } else {
  4034.         if (strcmp(argv[1],"-this") == 0) thisarg = 2;
  4035.         else if (strcmp(argv[1],"-args") == 0) {
  4036.             firstarg = 1;
  4037.             cmd = 0;
  4038.         } else if (argc == 2) {
  4039.             firstarg = 1;
  4040.             name = argv[1];
  4041.             cmd = 0;
  4042.         } else if (argc >= 3) {
  4043.             name = argv[1];
  4044.             if (strcmp(argv[2],"-this") == 0) thisarg = 3;
  4045.             else {
  4046.                 firstarg = 1;
  4047.                 cmd = 0;
  4048.             }
  4049.         }
  4050.     }
  4051.     if (cmd) {
  4052.         int result;
  4053.         result = (*cmd)(clientData,interp,argc-firstarg,&argv[firstarg]);
  4054.         if (result == TCL_OK) {
  4055.             SWIG_GetPtr(interp->result,(void **) &newObj,"_struct_PDF_data_source_s_p");
  4056.         } else { return result; }
  4057.         if (!name) name = interp->result;
  4058.         del = 0;
  4059.     } else if (thisarg > 0) { 
  4060.         if (thisarg < argc) {
  4061.             char *r;
  4062.             r = SWIG_GetPtr(argv[thisarg],(void **) &newObj,"_struct_PDF_data_source_s_p");
  4063.             if (r) {
  4064.                 interp->result = "Type error. not a PDF_data_source_s object.";
  4065.                 return TCL_ERROR;
  4066.             }
  4067.             if (!name) name = argv[thisarg];
  4068.         /* Return value is same as pointer value */
  4069.         Tcl_SetResult(interp,argv[thisarg],TCL_VOLATILE);
  4070.         } else {
  4071.             interp->result = "wrong # args.";
  4072.             return TCL_ERROR;
  4073.         }
  4074.     } else {
  4075.         interp->result = "No constructor available.";
  4076.         return TCL_ERROR;
  4077.     }
  4078.     {
  4079.       Tcl_CmdInfo dummy;
  4080.       if (!Tcl_GetCommandInfo(interp,name,&dummy)) {
  4081.     Tcl_CreateCommand(interp,name, TclPDF_data_source_sMethodCmd, (ClientData) newObj, del);
  4082.     return TCL_OK;
  4083.       } else {
  4084.     Tcl_SetResult(interp,"",TCL_VOLATILE);
  4085.     Tcl_AppendResult(interp,"Object ", name, " already exists!", (char *) NULL);
  4086.     return TCL_ERROR;
  4087.       }
  4088.     }
  4089. }
  4090.  
  4091.  
  4092. #define PDF_image_t_fp_set(_swigobj,_swigval) (_swigobj->fp = _swigval,_swigval)
  4093. static int _wrap_PDF_image_fp_set(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  4094.  
  4095.     FILE * _result;
  4096.     PDF_image * _arg0;
  4097.     FILE * _arg1;
  4098.  
  4099.     clientData = clientData; argv = argv;
  4100.     if ((argc < 3) || (argc > 3)) {
  4101.         Tcl_SetResult(interp, "Wrong # args. PDF_image_fp_set { PDF_image * } { FILE * } ",TCL_STATIC);
  4102.         return TCL_ERROR;
  4103.     }
  4104.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_image_p")) {
  4105.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_image_fp_set. Expected _PDF_image_p, received ", TCL_STATIC);
  4106.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  4107.         return TCL_ERROR;
  4108.     }
  4109.     if (SWIG_GetPtr(argv[2],(void **) &_arg1,"_FILE_p")) {
  4110.         Tcl_SetResult(interp, "Type error in argument 2 of PDF_image_fp_set. Expected _FILE_p, received ", TCL_STATIC);
  4111.         Tcl_AppendResult(interp, argv[2], (char *) NULL);
  4112.         return TCL_ERROR;
  4113.     }
  4114.     _result = (FILE *)PDF_image_t_fp_set(_arg0,_arg1);
  4115.     SWIG_MakePtr(interp->result, (void *) _result,"_FILE_p");
  4116.     return TCL_OK;
  4117. }
  4118. #define PDF_image_t_fp_get(_swigobj) ((FILE *) _swigobj->fp)
  4119. static int _wrap_PDF_image_fp_get(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  4120.  
  4121.     FILE * _result;
  4122.     PDF_image * _arg0;
  4123.  
  4124.     clientData = clientData; argv = argv;
  4125.     if ((argc < 2) || (argc > 2)) {
  4126.         Tcl_SetResult(interp, "Wrong # args. PDF_image_fp_get { PDF_image * } ",TCL_STATIC);
  4127.         return TCL_ERROR;
  4128.     }
  4129.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_image_p")) {
  4130.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_image_fp_get. Expected _PDF_image_p, received ", TCL_STATIC);
  4131.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  4132.         return TCL_ERROR;
  4133.     }
  4134.     _result = (FILE *)PDF_image_t_fp_get(_arg0);
  4135.     SWIG_MakePtr(interp->result, (void *) _result,"_FILE_p");
  4136.     return TCL_OK;
  4137. }
  4138. static char * PDF_image_t_filename_set(PDF_image *obj, char *val) {
  4139.     if (obj->filename) free(obj->filename);
  4140.     obj->filename = (char *) malloc(strlen(val)+1);
  4141.     strcpy(obj->filename,val);
  4142.     return val;
  4143. }
  4144. static int _wrap_PDF_image_filename_set(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  4145.  
  4146.     char * _result;
  4147.     PDF_image * _arg0;
  4148.     char * _arg1;
  4149.  
  4150.     clientData = clientData; argv = argv;
  4151.     if ((argc < 3) || (argc > 3)) {
  4152.         Tcl_SetResult(interp, "Wrong # args. PDF_image_filename_set { PDF_image * } { char * } ",TCL_STATIC);
  4153.         return TCL_ERROR;
  4154.     }
  4155.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_image_p")) {
  4156.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_image_filename_set. Expected _PDF_image_p, received ", TCL_STATIC);
  4157.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  4158.         return TCL_ERROR;
  4159.     }
  4160.     _arg1 = argv[2];
  4161.     _result = (char *)PDF_image_t_filename_set(_arg0,_arg1);
  4162.     Tcl_SetResult(interp, (char *) _result, TCL_VOLATILE);
  4163.     return TCL_OK;
  4164. }
  4165. #define PDF_image_t_filename_get(_swigobj) ((char *) _swigobj->filename)
  4166. static int _wrap_PDF_image_filename_get(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  4167.  
  4168.     char * _result;
  4169.     PDF_image * _arg0;
  4170.  
  4171.     clientData = clientData; argv = argv;
  4172.     if ((argc < 2) || (argc > 2)) {
  4173.         Tcl_SetResult(interp, "Wrong # args. PDF_image_filename_get { PDF_image * } ",TCL_STATIC);
  4174.         return TCL_ERROR;
  4175.     }
  4176.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_image_p")) {
  4177.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_image_filename_get. Expected _PDF_image_p, received ", TCL_STATIC);
  4178.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  4179.         return TCL_ERROR;
  4180.     }
  4181.     _result = (char *)PDF_image_t_filename_get(_arg0);
  4182.     Tcl_SetResult(interp, (char *) _result, TCL_VOLATILE);
  4183.     return TCL_OK;
  4184. }
  4185. #define PDF_image_t_width_set(_swigobj,_swigval) (_swigobj->width = _swigval,_swigval)
  4186. static int _wrap_PDF_image_width_set(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  4187.  
  4188.     unsigned int  _result;
  4189.     PDF_image * _arg0;
  4190.     unsigned int  _arg1;
  4191.  
  4192.     clientData = clientData; argv = argv;
  4193.     if ((argc < 3) || (argc > 3)) {
  4194.         Tcl_SetResult(interp, "Wrong # args. PDF_image_width_set { PDF_image * } { unsigned int  } ",TCL_STATIC);
  4195.         return TCL_ERROR;
  4196.     }
  4197.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_image_p")) {
  4198.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_image_width_set. Expected _PDF_image_p, received ", TCL_STATIC);
  4199.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  4200.         return TCL_ERROR;
  4201.     }
  4202.     _arg1 = (unsigned int ) strtoul(argv[2],(char **) NULL,0);
  4203.     _result = (unsigned int )PDF_image_t_width_set(_arg0,_arg1);
  4204.     sprintf(interp->result,"%lu", (unsigned long) _result);
  4205.     return TCL_OK;
  4206. }
  4207. #define PDF_image_t_width_get(_swigobj) ((unsigned int ) _swigobj->width)
  4208. static int _wrap_PDF_image_width_get(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  4209.  
  4210.     unsigned int  _result;
  4211.     PDF_image * _arg0;
  4212.  
  4213.     clientData = clientData; argv = argv;
  4214.     if ((argc < 2) || (argc > 2)) {
  4215.         Tcl_SetResult(interp, "Wrong # args. PDF_image_width_get { PDF_image * } ",TCL_STATIC);
  4216.         return TCL_ERROR;
  4217.     }
  4218.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_image_p")) {
  4219.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_image_width_get. Expected _PDF_image_p, received ", TCL_STATIC);
  4220.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  4221.         return TCL_ERROR;
  4222.     }
  4223.     _result = (unsigned int )PDF_image_t_width_get(_arg0);
  4224.     sprintf(interp->result,"%lu", (unsigned long) _result);
  4225.     return TCL_OK;
  4226. }
  4227. #define PDF_image_t_height_set(_swigobj,_swigval) (_swigobj->height = _swigval,_swigval)
  4228. static int _wrap_PDF_image_height_set(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  4229.  
  4230.     unsigned int  _result;
  4231.     PDF_image * _arg0;
  4232.     unsigned int  _arg1;
  4233.  
  4234.     clientData = clientData; argv = argv;
  4235.     if ((argc < 3) || (argc > 3)) {
  4236.         Tcl_SetResult(interp, "Wrong # args. PDF_image_height_set { PDF_image * } { unsigned int  } ",TCL_STATIC);
  4237.         return TCL_ERROR;
  4238.     }
  4239.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_image_p")) {
  4240.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_image_height_set. Expected _PDF_image_p, received ", TCL_STATIC);
  4241.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  4242.         return TCL_ERROR;
  4243.     }
  4244.     _arg1 = (unsigned int ) strtoul(argv[2],(char **) NULL,0);
  4245.     _result = (unsigned int )PDF_image_t_height_set(_arg0,_arg1);
  4246.     sprintf(interp->result,"%lu", (unsigned long) _result);
  4247.     return TCL_OK;
  4248. }
  4249. #define PDF_image_t_height_get(_swigobj) ((unsigned int ) _swigobj->height)
  4250. static int _wrap_PDF_image_height_get(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  4251.  
  4252.     unsigned int  _result;
  4253.     PDF_image * _arg0;
  4254.  
  4255.     clientData = clientData; argv = argv;
  4256.     if ((argc < 2) || (argc > 2)) {
  4257.         Tcl_SetResult(interp, "Wrong # args. PDF_image_height_get { PDF_image * } ",TCL_STATIC);
  4258.         return TCL_ERROR;
  4259.     }
  4260.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_image_p")) {
  4261.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_image_height_get. Expected _PDF_image_p, received ", TCL_STATIC);
  4262.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  4263.         return TCL_ERROR;
  4264.     }
  4265.     _result = (unsigned int )PDF_image_t_height_get(_arg0);
  4266.     sprintf(interp->result,"%lu", (unsigned long) _result);
  4267.     return TCL_OK;
  4268. }
  4269. #define PDF_image_t_bpc_set(_swigobj,_swigval) (_swigobj->bpc = _swigval,_swigval)
  4270. static int _wrap_PDF_image_bpc_set(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  4271.  
  4272.     int  _result;
  4273.     PDF_image * _arg0;
  4274.     int  _arg1;
  4275.  
  4276.     clientData = clientData; argv = argv;
  4277.     if ((argc < 3) || (argc > 3)) {
  4278.         Tcl_SetResult(interp, "Wrong # args. PDF_image_bpc_set { PDF_image * } { int  } ",TCL_STATIC);
  4279.         return TCL_ERROR;
  4280.     }
  4281.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_image_p")) {
  4282.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_image_bpc_set. Expected _PDF_image_p, received ", TCL_STATIC);
  4283.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  4284.         return TCL_ERROR;
  4285.     }
  4286.     _arg1 = (int ) atol(argv[2]);
  4287.     _result = (int )PDF_image_t_bpc_set(_arg0,_arg1);
  4288.     sprintf(interp->result,"%ld", (long) _result);
  4289.     return TCL_OK;
  4290. }
  4291. #define PDF_image_t_bpc_get(_swigobj) ((int ) _swigobj->bpc)
  4292. static int _wrap_PDF_image_bpc_get(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  4293.  
  4294.     int  _result;
  4295.     PDF_image * _arg0;
  4296.  
  4297.     clientData = clientData; argv = argv;
  4298.     if ((argc < 2) || (argc > 2)) {
  4299.         Tcl_SetResult(interp, "Wrong # args. PDF_image_bpc_get { PDF_image * } ",TCL_STATIC);
  4300.         return TCL_ERROR;
  4301.     }
  4302.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_image_p")) {
  4303.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_image_bpc_get. Expected _PDF_image_p, received ", TCL_STATIC);
  4304.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  4305.         return TCL_ERROR;
  4306.     }
  4307.     _result = (int )PDF_image_t_bpc_get(_arg0);
  4308.     sprintf(interp->result,"%ld", (long) _result);
  4309.     return TCL_OK;
  4310. }
  4311. #define PDF_image_t_components_set(_swigobj,_swigval) (_swigobj->components = _swigval,_swigval)
  4312. static int _wrap_PDF_image_components_set(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  4313.  
  4314.     unsigned int  _result;
  4315.     PDF_image * _arg0;
  4316.     unsigned int  _arg1;
  4317.  
  4318.     clientData = clientData; argv = argv;
  4319.     if ((argc < 3) || (argc > 3)) {
  4320.         Tcl_SetResult(interp, "Wrong # args. PDF_image_components_set { PDF_image * } { unsigned int  } ",TCL_STATIC);
  4321.         return TCL_ERROR;
  4322.     }
  4323.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_image_p")) {
  4324.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_image_components_set. Expected _PDF_image_p, received ", TCL_STATIC);
  4325.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  4326.         return TCL_ERROR;
  4327.     }
  4328.     _arg1 = (unsigned int ) strtoul(argv[2],(char **) NULL,0);
  4329.     _result = (unsigned int )PDF_image_t_components_set(_arg0,_arg1);
  4330.     sprintf(interp->result,"%lu", (unsigned long) _result);
  4331.     return TCL_OK;
  4332. }
  4333. #define PDF_image_t_components_get(_swigobj) ((unsigned int ) _swigobj->components)
  4334. static int _wrap_PDF_image_components_get(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  4335.  
  4336.     unsigned int  _result;
  4337.     PDF_image * _arg0;
  4338.  
  4339.     clientData = clientData; argv = argv;
  4340.     if ((argc < 2) || (argc > 2)) {
  4341.         Tcl_SetResult(interp, "Wrong # args. PDF_image_components_get { PDF_image * } ",TCL_STATIC);
  4342.         return TCL_ERROR;
  4343.     }
  4344.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_image_p")) {
  4345.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_image_components_get. Expected _PDF_image_p, received ", TCL_STATIC);
  4346.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  4347.         return TCL_ERROR;
  4348.     }
  4349.     _result = (unsigned int )PDF_image_t_components_get(_arg0);
  4350.     sprintf(interp->result,"%lu", (unsigned long) _result);
  4351.     return TCL_OK;
  4352. }
  4353. #define PDF_image_t_compression_set(_swigobj,_swigval) (_swigobj->compression = _swigval,_swigval)
  4354. static int _wrap_PDF_image_compression_set(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  4355.  
  4356.     PDF_compression  _result;
  4357.     PDF_image * _arg0;
  4358.     PDF_compression  _arg1;
  4359.  
  4360.     clientData = clientData; argv = argv;
  4361.     if ((argc < 3) || (argc > 3)) {
  4362.         Tcl_SetResult(interp, "Wrong # args. PDF_image_compression_set { PDF_image * } { PDF_compression  } ",TCL_STATIC);
  4363.         return TCL_ERROR;
  4364.     }
  4365.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_image_p")) {
  4366.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_image_compression_set. Expected _PDF_image_p, received ", TCL_STATIC);
  4367.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  4368.         return TCL_ERROR;
  4369.     }
  4370.     _arg1 = (PDF_compression ) atol(argv[2]);
  4371.     _result = (PDF_compression )PDF_image_t_compression_set(_arg0,_arg1);
  4372.     sprintf(interp->result,"%ld", (long) _result);
  4373.     return TCL_OK;
  4374. }
  4375. #define PDF_image_t_compression_get(_swigobj) ((PDF_compression ) _swigobj->compression)
  4376. static int _wrap_PDF_image_compression_get(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  4377.  
  4378.     PDF_compression  _result;
  4379.     PDF_image * _arg0;
  4380.  
  4381.     clientData = clientData; argv = argv;
  4382.     if ((argc < 2) || (argc > 2)) {
  4383.         Tcl_SetResult(interp, "Wrong # args. PDF_image_compression_get { PDF_image * } ",TCL_STATIC);
  4384.         return TCL_ERROR;
  4385.     }
  4386.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_image_p")) {
  4387.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_image_compression_get. Expected _PDF_image_p, received ", TCL_STATIC);
  4388.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  4389.         return TCL_ERROR;
  4390.     }
  4391.     _result = (PDF_compression )PDF_image_t_compression_get(_arg0);
  4392.     sprintf(interp->result,"%ld", (long) _result);
  4393.     return TCL_OK;
  4394. }
  4395. #define PDF_image_t_colorspace_set(_swigobj,_swigval) (_swigobj->colorspace = _swigval,_swigval)
  4396. static int _wrap_PDF_image_colorspace_set(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  4397.  
  4398.     PDF_colorspace  _result;
  4399.     PDF_image * _arg0;
  4400.     PDF_colorspace  _arg1;
  4401.  
  4402.     clientData = clientData; argv = argv;
  4403.     if ((argc < 3) || (argc > 3)) {
  4404.         Tcl_SetResult(interp, "Wrong # args. PDF_image_colorspace_set { PDF_image * } { PDF_colorspace  } ",TCL_STATIC);
  4405.         return TCL_ERROR;
  4406.     }
  4407.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_image_p")) {
  4408.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_image_colorspace_set. Expected _PDF_image_p, received ", TCL_STATIC);
  4409.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  4410.         return TCL_ERROR;
  4411.     }
  4412.     _arg1 = (PDF_colorspace ) atol(argv[2]);
  4413.     _result = (PDF_colorspace )PDF_image_t_colorspace_set(_arg0,_arg1);
  4414.     sprintf(interp->result,"%ld", (long) _result);
  4415.     return TCL_OK;
  4416. }
  4417. #define PDF_image_t_colorspace_get(_swigobj) ((PDF_colorspace ) _swigobj->colorspace)
  4418. static int _wrap_PDF_image_colorspace_get(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  4419.  
  4420.     PDF_colorspace  _result;
  4421.     PDF_image * _arg0;
  4422.  
  4423.     clientData = clientData; argv = argv;
  4424.     if ((argc < 2) || (argc > 2)) {
  4425.         Tcl_SetResult(interp, "Wrong # args. PDF_image_colorspace_get { PDF_image * } ",TCL_STATIC);
  4426.         return TCL_ERROR;
  4427.     }
  4428.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_image_p")) {
  4429.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_image_colorspace_get. Expected _PDF_image_p, received ", TCL_STATIC);
  4430.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  4431.         return TCL_ERROR;
  4432.     }
  4433.     _result = (PDF_colorspace )PDF_image_t_colorspace_get(_arg0);
  4434.     sprintf(interp->result,"%ld", (long) _result);
  4435.     return TCL_OK;
  4436. }
  4437. #define PDF_image_t_indexed_set(_swigobj,_swigval) (_swigobj->indexed = _swigval,_swigval)
  4438. static int _wrap_PDF_image_indexed_set(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  4439.  
  4440.     bool  _result;
  4441.     PDF_image * _arg0;
  4442.     bool  _arg1;
  4443.  
  4444.     clientData = clientData; argv = argv;
  4445.     if ((argc < 3) || (argc > 3)) {
  4446.         Tcl_SetResult(interp, "Wrong # args. PDF_image_indexed_set { PDF_image * } { bool  } ",TCL_STATIC);
  4447.         return TCL_ERROR;
  4448.     }
  4449.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_image_p")) {
  4450.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_image_indexed_set. Expected _PDF_image_p, received ", TCL_STATIC);
  4451.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  4452.         return TCL_ERROR;
  4453.     }
  4454.     _arg1 = (bool ) atol(argv[2]);
  4455.     _result = (bool )PDF_image_t_indexed_set(_arg0,_arg1);
  4456.     sprintf(interp->result,"%ld", (long) _result);
  4457.     return TCL_OK;
  4458. }
  4459. #define PDF_image_t_indexed_get(_swigobj) ((bool ) _swigobj->indexed)
  4460. static int _wrap_PDF_image_indexed_get(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  4461.  
  4462.     bool  _result;
  4463.     PDF_image * _arg0;
  4464.  
  4465.     clientData = clientData; argv = argv;
  4466.     if ((argc < 2) || (argc > 2)) {
  4467.         Tcl_SetResult(interp, "Wrong # args. PDF_image_indexed_get { PDF_image * } ",TCL_STATIC);
  4468.         return TCL_ERROR;
  4469.     }
  4470.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_image_p")) {
  4471.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_image_indexed_get. Expected _PDF_image_p, received ", TCL_STATIC);
  4472.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  4473.         return TCL_ERROR;
  4474.     }
  4475.     _result = (bool )PDF_image_t_indexed_get(_arg0);
  4476.     sprintf(interp->result,"%ld", (long) _result);
  4477.     return TCL_OK;
  4478. }
  4479. #define PDF_image_t_BitPixel_set(_swigobj,_swigval) (_swigobj->BitPixel = _swigval,_swigval)
  4480. static int _wrap_PDF_image_BitPixel_set(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  4481.  
  4482.     unsigned int  _result;
  4483.     PDF_image * _arg0;
  4484.     unsigned int  _arg1;
  4485.  
  4486.     clientData = clientData; argv = argv;
  4487.     if ((argc < 3) || (argc > 3)) {
  4488.         Tcl_SetResult(interp, "Wrong # args. PDF_image_BitPixel_set { PDF_image * } { unsigned int  } ",TCL_STATIC);
  4489.         return TCL_ERROR;
  4490.     }
  4491.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_image_p")) {
  4492.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_image_BitPixel_set. Expected _PDF_image_p, received ", TCL_STATIC);
  4493.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  4494.         return TCL_ERROR;
  4495.     }
  4496.     _arg1 = (unsigned int ) strtoul(argv[2],(char **) NULL,0);
  4497.     _result = (unsigned int )PDF_image_t_BitPixel_set(_arg0,_arg1);
  4498.     sprintf(interp->result,"%lu", (unsigned long) _result);
  4499.     return TCL_OK;
  4500. }
  4501. #define PDF_image_t_BitPixel_get(_swigobj) ((unsigned int ) _swigobj->BitPixel)
  4502. static int _wrap_PDF_image_BitPixel_get(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  4503.  
  4504.     unsigned int  _result;
  4505.     PDF_image * _arg0;
  4506.  
  4507.     clientData = clientData; argv = argv;
  4508.     if ((argc < 2) || (argc > 2)) {
  4509.         Tcl_SetResult(interp, "Wrong # args. PDF_image_BitPixel_get { PDF_image * } ",TCL_STATIC);
  4510.         return TCL_ERROR;
  4511.     }
  4512.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_image_p")) {
  4513.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_image_BitPixel_get. Expected _PDF_image_p, received ", TCL_STATIC);
  4514.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  4515.         return TCL_ERROR;
  4516.     }
  4517.     _result = (unsigned int )PDF_image_t_BitPixel_get(_arg0);
  4518.     sprintf(interp->result,"%lu", (unsigned long) _result);
  4519.     return TCL_OK;
  4520. }
  4521. #define PDF_image_t_colormap_get(_swigobj) ((byte *) _swigobj->colormap)
  4522. static int _wrap_PDF_image_colormap_get(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  4523.  
  4524.     byte * _result;
  4525.     PDF_image * _arg0;
  4526.  
  4527.     clientData = clientData; argv = argv;
  4528.     if ((argc < 2) || (argc > 2)) {
  4529.         Tcl_SetResult(interp, "Wrong # args. PDF_image_colormap_get { PDF_image * } ",TCL_STATIC);
  4530.         return TCL_ERROR;
  4531.     }
  4532.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_image_p")) {
  4533.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_image_colormap_get. Expected _PDF_image_p, received ", TCL_STATIC);
  4534.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  4535.         return TCL_ERROR;
  4536.     }
  4537.     _result = (byte *)PDF_image_t_colormap_get(_arg0);
  4538.     SWIG_MakePtr(interp->result, (void *) _result,"_pdf_colormap");
  4539.     return TCL_OK;
  4540. }
  4541. #define PDF_image_t_adobe_set(_swigobj,_swigval) (_swigobj->adobe = _swigval,_swigval)
  4542. static int _wrap_PDF_image_adobe_set(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  4543.  
  4544.     bool  _result;
  4545.     PDF_image * _arg0;
  4546.     bool  _arg1;
  4547.  
  4548.     clientData = clientData; argv = argv;
  4549.     if ((argc < 3) || (argc > 3)) {
  4550.         Tcl_SetResult(interp, "Wrong # args. PDF_image_adobe_set { PDF_image * } { bool  } ",TCL_STATIC);
  4551.         return TCL_ERROR;
  4552.     }
  4553.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_image_p")) {
  4554.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_image_adobe_set. Expected _PDF_image_p, received ", TCL_STATIC);
  4555.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  4556.         return TCL_ERROR;
  4557.     }
  4558.     _arg1 = (bool ) atol(argv[2]);
  4559.     _result = (bool )PDF_image_t_adobe_set(_arg0,_arg1);
  4560.     sprintf(interp->result,"%ld", (long) _result);
  4561.     return TCL_OK;
  4562. }
  4563. #define PDF_image_t_adobe_get(_swigobj) ((bool ) _swigobj->adobe)
  4564. static int _wrap_PDF_image_adobe_get(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  4565.  
  4566.     bool  _result;
  4567.     PDF_image * _arg0;
  4568.  
  4569.     clientData = clientData; argv = argv;
  4570.     if ((argc < 2) || (argc > 2)) {
  4571.         Tcl_SetResult(interp, "Wrong # args. PDF_image_adobe_get { PDF_image * } ",TCL_STATIC);
  4572.         return TCL_ERROR;
  4573.     }
  4574.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_image_p")) {
  4575.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_image_adobe_get. Expected _PDF_image_p, received ", TCL_STATIC);
  4576.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  4577.         return TCL_ERROR;
  4578.     }
  4579.     _result = (bool )PDF_image_t_adobe_get(_arg0);
  4580.     sprintf(interp->result,"%ld", (long) _result);
  4581.     return TCL_OK;
  4582. }
  4583. #define PDF_image_t_startpos_set(_swigobj,_swigval) (_swigobj->startpos = _swigval,_swigval)
  4584. static int _wrap_PDF_image_startpos_set(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  4585.  
  4586.     long  _result;
  4587.     PDF_image * _arg0;
  4588.     long  _arg1;
  4589.  
  4590.     clientData = clientData; argv = argv;
  4591.     if ((argc < 3) || (argc > 3)) {
  4592.         Tcl_SetResult(interp, "Wrong # args. PDF_image_startpos_set { PDF_image * } { long  } ",TCL_STATIC);
  4593.         return TCL_ERROR;
  4594.     }
  4595.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_image_p")) {
  4596.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_image_startpos_set. Expected _PDF_image_p, received ", TCL_STATIC);
  4597.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  4598.         return TCL_ERROR;
  4599.     }
  4600.     _arg1 = (long ) atol(argv[2]);
  4601.     _result = (long )PDF_image_t_startpos_set(_arg0,_arg1);
  4602.     sprintf(interp->result,"%ld", (long) _result);
  4603.     return TCL_OK;
  4604. }
  4605. #define PDF_image_t_startpos_get(_swigobj) ((long ) _swigobj->startpos)
  4606. static int _wrap_PDF_image_startpos_get(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  4607.  
  4608.     long  _result;
  4609.     PDF_image * _arg0;
  4610.  
  4611.     clientData = clientData; argv = argv;
  4612.     if ((argc < 2) || (argc > 2)) {
  4613.         Tcl_SetResult(interp, "Wrong # args. PDF_image_startpos_get { PDF_image * } ",TCL_STATIC);
  4614.         return TCL_ERROR;
  4615.     }
  4616.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_image_p")) {
  4617.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_image_startpos_get. Expected _PDF_image_p, received ", TCL_STATIC);
  4618.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  4619.         return TCL_ERROR;
  4620.     }
  4621.     _result = (long )PDF_image_t_startpos_get(_arg0);
  4622.     sprintf(interp->result,"%ld", (long) _result);
  4623.     return TCL_OK;
  4624. }
  4625. #define PDF_image_t_dpi_set(_swigobj,_swigval) (_swigobj->dpi = _swigval,_swigval)
  4626. static int _wrap_PDF_image_dpi_set(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  4627.  
  4628.     float  _result;
  4629.     PDF_image * _arg0;
  4630.     float  _arg1;
  4631.  
  4632.     clientData = clientData; argv = argv;
  4633.     if ((argc < 3) || (argc > 3)) {
  4634.         Tcl_SetResult(interp, "Wrong # args. PDF_image_dpi_set { PDF_image * } { float  } ",TCL_STATIC);
  4635.         return TCL_ERROR;
  4636.     }
  4637.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_image_p")) {
  4638.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_image_dpi_set. Expected _PDF_image_p, received ", TCL_STATIC);
  4639.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  4640.         return TCL_ERROR;
  4641.     }
  4642.     _arg1 = (float ) atof(argv[2]);
  4643.     _result = (float )PDF_image_t_dpi_set(_arg0,_arg1);
  4644.     Tcl_PrintDouble(interp,(double) _result, interp->result);
  4645.     return TCL_OK;
  4646. }
  4647. #define PDF_image_t_dpi_get(_swigobj) ((float ) _swigobj->dpi)
  4648. static int _wrap_PDF_image_dpi_get(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  4649.  
  4650.     float  _result;
  4651.     PDF_image * _arg0;
  4652.  
  4653.     clientData = clientData; argv = argv;
  4654.     if ((argc < 2) || (argc > 2)) {
  4655.         Tcl_SetResult(interp, "Wrong # args. PDF_image_dpi_get { PDF_image * } ",TCL_STATIC);
  4656.         return TCL_ERROR;
  4657.     }
  4658.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_image_p")) {
  4659.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_image_dpi_get. Expected _PDF_image_p, received ", TCL_STATIC);
  4660.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  4661.         return TCL_ERROR;
  4662.     }
  4663.     _result = (float )PDF_image_t_dpi_get(_arg0);
  4664.     Tcl_PrintDouble(interp,(double) _result, interp->result);
  4665.     return TCL_OK;
  4666. }
  4667. #define PDF_image_t_Background_set(_swigobj,_swigval) (_swigobj->Background = _swigval,_swigval)
  4668. static int _wrap_PDF_image_Background_set(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  4669.  
  4670.     unsigned int  _result;
  4671.     PDF_image * _arg0;
  4672.     unsigned int  _arg1;
  4673.  
  4674.     clientData = clientData; argv = argv;
  4675.     if ((argc < 3) || (argc > 3)) {
  4676.         Tcl_SetResult(interp, "Wrong # args. PDF_image_Background_set { PDF_image * } { unsigned int  } ",TCL_STATIC);
  4677.         return TCL_ERROR;
  4678.     }
  4679.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_image_p")) {
  4680.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_image_Background_set. Expected _PDF_image_p, received ", TCL_STATIC);
  4681.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  4682.         return TCL_ERROR;
  4683.     }
  4684.     _arg1 = (unsigned int ) strtoul(argv[2],(char **) NULL,0);
  4685.     _result = (unsigned int )PDF_image_t_Background_set(_arg0,_arg1);
  4686.     sprintf(interp->result,"%lu", (unsigned long) _result);
  4687.     return TCL_OK;
  4688. }
  4689. #define PDF_image_t_Background_get(_swigobj) ((unsigned int ) _swigobj->Background)
  4690. static int _wrap_PDF_image_Background_get(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  4691.  
  4692.     unsigned int  _result;
  4693.     PDF_image * _arg0;
  4694.  
  4695.     clientData = clientData; argv = argv;
  4696.     if ((argc < 2) || (argc > 2)) {
  4697.         Tcl_SetResult(interp, "Wrong # args. PDF_image_Background_get { PDF_image * } ",TCL_STATIC);
  4698.         return TCL_ERROR;
  4699.     }
  4700.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_image_p")) {
  4701.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_image_Background_get. Expected _PDF_image_p, received ", TCL_STATIC);
  4702.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  4703.         return TCL_ERROR;
  4704.     }
  4705.     _result = (unsigned int )PDF_image_t_Background_get(_arg0);
  4706.     sprintf(interp->result,"%lu", (unsigned long) _result);
  4707.     return TCL_OK;
  4708. }
  4709. #define PDF_image_t_transparent_set(_swigobj,_swigval) (_swigobj->transparent = _swigval,_swigval)
  4710. static int _wrap_PDF_image_transparent_set(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  4711.  
  4712.     int  _result;
  4713.     PDF_image * _arg0;
  4714.     int  _arg1;
  4715.  
  4716.     clientData = clientData; argv = argv;
  4717.     if ((argc < 3) || (argc > 3)) {
  4718.         Tcl_SetResult(interp, "Wrong # args. PDF_image_transparent_set { PDF_image * } { int  } ",TCL_STATIC);
  4719.         return TCL_ERROR;
  4720.     }
  4721.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_image_p")) {
  4722.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_image_transparent_set. Expected _PDF_image_p, received ", TCL_STATIC);
  4723.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  4724.         return TCL_ERROR;
  4725.     }
  4726.     _arg1 = (int ) atol(argv[2]);
  4727.     _result = (int )PDF_image_t_transparent_set(_arg0,_arg1);
  4728.     sprintf(interp->result,"%ld", (long) _result);
  4729.     return TCL_OK;
  4730. }
  4731. #define PDF_image_t_transparent_get(_swigobj) ((int ) _swigobj->transparent)
  4732. static int _wrap_PDF_image_transparent_get(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  4733.  
  4734.     int  _result;
  4735.     PDF_image * _arg0;
  4736.  
  4737.     clientData = clientData; argv = argv;
  4738.     if ((argc < 2) || (argc > 2)) {
  4739.         Tcl_SetResult(interp, "Wrong # args. PDF_image_transparent_get { PDF_image * } ",TCL_STATIC);
  4740.         return TCL_ERROR;
  4741.     }
  4742.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_image_p")) {
  4743.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_image_transparent_get. Expected _PDF_image_p, received ", TCL_STATIC);
  4744.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  4745.         return TCL_ERROR;
  4746.     }
  4747.     _result = (int )PDF_image_t_transparent_get(_arg0);
  4748.     sprintf(interp->result,"%ld", (long) _result);
  4749.     return TCL_OK;
  4750. }
  4751. #define PDF_image_t_delayTime_set(_swigobj,_swigval) (_swigobj->delayTime = _swigval,_swigval)
  4752. static int _wrap_PDF_image_delayTime_set(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  4753.  
  4754.     int  _result;
  4755.     PDF_image * _arg0;
  4756.     int  _arg1;
  4757.  
  4758.     clientData = clientData; argv = argv;
  4759.     if ((argc < 3) || (argc > 3)) {
  4760.         Tcl_SetResult(interp, "Wrong # args. PDF_image_delayTime_set { PDF_image * } { int  } ",TCL_STATIC);
  4761.         return TCL_ERROR;
  4762.     }
  4763.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_image_p")) {
  4764.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_image_delayTime_set. Expected _PDF_image_p, received ", TCL_STATIC);
  4765.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  4766.         return TCL_ERROR;
  4767.     }
  4768.     _arg1 = (int ) atol(argv[2]);
  4769.     _result = (int )PDF_image_t_delayTime_set(_arg0,_arg1);
  4770.     sprintf(interp->result,"%ld", (long) _result);
  4771.     return TCL_OK;
  4772. }
  4773. #define PDF_image_t_delayTime_get(_swigobj) ((int ) _swigobj->delayTime)
  4774. static int _wrap_PDF_image_delayTime_get(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  4775.  
  4776.     int  _result;
  4777.     PDF_image * _arg0;
  4778.  
  4779.     clientData = clientData; argv = argv;
  4780.     if ((argc < 2) || (argc > 2)) {
  4781.         Tcl_SetResult(interp, "Wrong # args. PDF_image_delayTime_get { PDF_image * } ",TCL_STATIC);
  4782.         return TCL_ERROR;
  4783.     }
  4784.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_image_p")) {
  4785.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_image_delayTime_get. Expected _PDF_image_p, received ", TCL_STATIC);
  4786.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  4787.         return TCL_ERROR;
  4788.     }
  4789.     _result = (int )PDF_image_t_delayTime_get(_arg0);
  4790.     sprintf(interp->result,"%ld", (long) _result);
  4791.     return TCL_OK;
  4792. }
  4793. #define PDF_image_t_inputFlag_set(_swigobj,_swigval) (_swigobj->inputFlag = _swigval,_swigval)
  4794. static int _wrap_PDF_image_inputFlag_set(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  4795.  
  4796.     int  _result;
  4797.     PDF_image * _arg0;
  4798.     int  _arg1;
  4799.  
  4800.     clientData = clientData; argv = argv;
  4801.     if ((argc < 3) || (argc > 3)) {
  4802.         Tcl_SetResult(interp, "Wrong # args. PDF_image_inputFlag_set { PDF_image * } { int  } ",TCL_STATIC);
  4803.         return TCL_ERROR;
  4804.     }
  4805.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_image_p")) {
  4806.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_image_inputFlag_set. Expected _PDF_image_p, received ", TCL_STATIC);
  4807.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  4808.         return TCL_ERROR;
  4809.     }
  4810.     _arg1 = (int ) atol(argv[2]);
  4811.     _result = (int )PDF_image_t_inputFlag_set(_arg0,_arg1);
  4812.     sprintf(interp->result,"%ld", (long) _result);
  4813.     return TCL_OK;
  4814. }
  4815. #define PDF_image_t_inputFlag_get(_swigobj) ((int ) _swigobj->inputFlag)
  4816. static int _wrap_PDF_image_inputFlag_get(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  4817.  
  4818.     int  _result;
  4819.     PDF_image * _arg0;
  4820.  
  4821.     clientData = clientData; argv = argv;
  4822.     if ((argc < 2) || (argc > 2)) {
  4823.         Tcl_SetResult(interp, "Wrong # args. PDF_image_inputFlag_get { PDF_image * } ",TCL_STATIC);
  4824.         return TCL_ERROR;
  4825.     }
  4826.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_image_p")) {
  4827.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_image_inputFlag_get. Expected _PDF_image_p, received ", TCL_STATIC);
  4828.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  4829.         return TCL_ERROR;
  4830.     }
  4831.     _result = (int )PDF_image_t_inputFlag_get(_arg0);
  4832.     sprintf(interp->result,"%ld", (long) _result);
  4833.     return TCL_OK;
  4834. }
  4835. #define PDF_image_t_disposal_set(_swigobj,_swigval) (_swigobj->disposal = _swigval,_swigval)
  4836. static int _wrap_PDF_image_disposal_set(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  4837.  
  4838.     int  _result;
  4839.     PDF_image * _arg0;
  4840.     int  _arg1;
  4841.  
  4842.     clientData = clientData; argv = argv;
  4843.     if ((argc < 3) || (argc > 3)) {
  4844.         Tcl_SetResult(interp, "Wrong # args. PDF_image_disposal_set { PDF_image * } { int  } ",TCL_STATIC);
  4845.         return TCL_ERROR;
  4846.     }
  4847.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_image_p")) {
  4848.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_image_disposal_set. Expected _PDF_image_p, received ", TCL_STATIC);
  4849.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  4850.         return TCL_ERROR;
  4851.     }
  4852.     _arg1 = (int ) atol(argv[2]);
  4853.     _result = (int )PDF_image_t_disposal_set(_arg0,_arg1);
  4854.     sprintf(interp->result,"%ld", (long) _result);
  4855.     return TCL_OK;
  4856. }
  4857. #define PDF_image_t_disposal_get(_swigobj) ((int ) _swigobj->disposal)
  4858. static int _wrap_PDF_image_disposal_get(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  4859.  
  4860.     int  _result;
  4861.     PDF_image * _arg0;
  4862.  
  4863.     clientData = clientData; argv = argv;
  4864.     if ((argc < 2) || (argc > 2)) {
  4865.         Tcl_SetResult(interp, "Wrong # args. PDF_image_disposal_get { PDF_image * } ",TCL_STATIC);
  4866.         return TCL_ERROR;
  4867.     }
  4868.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_image_p")) {
  4869.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_image_disposal_get. Expected _PDF_image_p, received ", TCL_STATIC);
  4870.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  4871.         return TCL_ERROR;
  4872.     }
  4873.     _result = (int )PDF_image_t_disposal_get(_arg0);
  4874.     sprintf(interp->result,"%ld", (long) _result);
  4875.     return TCL_OK;
  4876. }
  4877. #define PDF_image_t_useGlobalColormap_set(_swigobj,_swigval) (_swigobj->useGlobalColormap = _swigval,_swigval)
  4878. static int _wrap_PDF_image_useGlobalColormap_set(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  4879.  
  4880.     int  _result;
  4881.     PDF_image * _arg0;
  4882.     int  _arg1;
  4883.  
  4884.     clientData = clientData; argv = argv;
  4885.     if ((argc < 3) || (argc > 3)) {
  4886.         Tcl_SetResult(interp, "Wrong # args. PDF_image_useGlobalColormap_set { PDF_image * } { int  } ",TCL_STATIC);
  4887.         return TCL_ERROR;
  4888.     }
  4889.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_image_p")) {
  4890.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_image_useGlobalColormap_set. Expected _PDF_image_p, received ", TCL_STATIC);
  4891.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  4892.         return TCL_ERROR;
  4893.     }
  4894.     _arg1 = (int ) atol(argv[2]);
  4895.     _result = (int )PDF_image_t_useGlobalColormap_set(_arg0,_arg1);
  4896.     sprintf(interp->result,"%ld", (long) _result);
  4897.     return TCL_OK;
  4898. }
  4899. #define PDF_image_t_useGlobalColormap_get(_swigobj) ((int ) _swigobj->useGlobalColormap)
  4900. static int _wrap_PDF_image_useGlobalColormap_get(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  4901.  
  4902.     int  _result;
  4903.     PDF_image * _arg0;
  4904.  
  4905.     clientData = clientData; argv = argv;
  4906.     if ((argc < 2) || (argc > 2)) {
  4907.         Tcl_SetResult(interp, "Wrong # args. PDF_image_useGlobalColormap_get { PDF_image * } ",TCL_STATIC);
  4908.         return TCL_ERROR;
  4909.     }
  4910.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_image_p")) {
  4911.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_image_useGlobalColormap_get. Expected _PDF_image_p, received ", TCL_STATIC);
  4912.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  4913.         return TCL_ERROR;
  4914.     }
  4915.     _result = (int )PDF_image_t_useGlobalColormap_get(_arg0);
  4916.     sprintf(interp->result,"%ld", (long) _result);
  4917.     return TCL_OK;
  4918. }
  4919. #define PDF_image_t_bitPixel_set(_swigobj,_swigval) (_swigobj->bitPixel = _swigval,_swigval)
  4920. static int _wrap_PDF_image_bitPixel_set(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  4921.  
  4922.     unsigned int  _result;
  4923.     PDF_image * _arg0;
  4924.     unsigned int  _arg1;
  4925.  
  4926.     clientData = clientData; argv = argv;
  4927.     if ((argc < 3) || (argc > 3)) {
  4928.         Tcl_SetResult(interp, "Wrong # args. PDF_image_bitPixel_set { PDF_image * } { unsigned int  } ",TCL_STATIC);
  4929.         return TCL_ERROR;
  4930.     }
  4931.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_image_p")) {
  4932.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_image_bitPixel_set. Expected _PDF_image_p, received ", TCL_STATIC);
  4933.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  4934.         return TCL_ERROR;
  4935.     }
  4936.     _arg1 = (unsigned int ) strtoul(argv[2],(char **) NULL,0);
  4937.     _result = (unsigned int )PDF_image_t_bitPixel_set(_arg0,_arg1);
  4938.     sprintf(interp->result,"%lu", (unsigned long) _result);
  4939.     return TCL_OK;
  4940. }
  4941. #define PDF_image_t_bitPixel_get(_swigobj) ((unsigned int ) _swigobj->bitPixel)
  4942. static int _wrap_PDF_image_bitPixel_get(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  4943.  
  4944.     unsigned int  _result;
  4945.     PDF_image * _arg0;
  4946.  
  4947.     clientData = clientData; argv = argv;
  4948.     if ((argc < 2) || (argc > 2)) {
  4949.         Tcl_SetResult(interp, "Wrong # args. PDF_image_bitPixel_get { PDF_image * } ",TCL_STATIC);
  4950.         return TCL_ERROR;
  4951.     }
  4952.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_image_p")) {
  4953.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_image_bitPixel_get. Expected _PDF_image_p, received ", TCL_STATIC);
  4954.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  4955.         return TCL_ERROR;
  4956.     }
  4957.     _result = (unsigned int )PDF_image_t_bitPixel_get(_arg0);
  4958.     sprintf(interp->result,"%lu", (unsigned long) _result);
  4959.     return TCL_OK;
  4960. }
  4961. #define PDF_image_t_interlace_set(_swigobj,_swigval) (_swigobj->interlace = _swigval,_swigval)
  4962. static int _wrap_PDF_image_interlace_set(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  4963.  
  4964.     bool  _result;
  4965.     PDF_image * _arg0;
  4966.     bool  _arg1;
  4967.  
  4968.     clientData = clientData; argv = argv;
  4969.     if ((argc < 3) || (argc > 3)) {
  4970.         Tcl_SetResult(interp, "Wrong # args. PDF_image_interlace_set { PDF_image * } { bool  } ",TCL_STATIC);
  4971.         return TCL_ERROR;
  4972.     }
  4973.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_image_p")) {
  4974.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_image_interlace_set. Expected _PDF_image_p, received ", TCL_STATIC);
  4975.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  4976.         return TCL_ERROR;
  4977.     }
  4978.     _arg1 = (bool ) atol(argv[2]);
  4979.     _result = (bool )PDF_image_t_interlace_set(_arg0,_arg1);
  4980.     sprintf(interp->result,"%ld", (long) _result);
  4981.     return TCL_OK;
  4982. }
  4983. #define PDF_image_t_interlace_get(_swigobj) ((bool ) _swigobj->interlace)
  4984. static int _wrap_PDF_image_interlace_get(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  4985.  
  4986.     bool  _result;
  4987.     PDF_image * _arg0;
  4988.  
  4989.     clientData = clientData; argv = argv;
  4990.     if ((argc < 2) || (argc > 2)) {
  4991.         Tcl_SetResult(interp, "Wrong # args. PDF_image_interlace_get { PDF_image * } ",TCL_STATIC);
  4992.         return TCL_ERROR;
  4993.     }
  4994.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_image_p")) {
  4995.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_image_interlace_get. Expected _PDF_image_p, received ", TCL_STATIC);
  4996.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  4997.         return TCL_ERROR;
  4998.     }
  4999.     _result = (bool )PDF_image_t_interlace_get(_arg0);
  5000.     sprintf(interp->result,"%ld", (long) _result);
  5001.     return TCL_OK;
  5002. }
  5003. #define PDF_image_t_imageno_set(_swigobj,_swigval) (_swigobj->imageno = _swigval,_swigval)
  5004. static int _wrap_PDF_image_imageno_set(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  5005.  
  5006.     int  _result;
  5007.     PDF_image * _arg0;
  5008.     int  _arg1;
  5009.  
  5010.     clientData = clientData; argv = argv;
  5011.     if ((argc < 3) || (argc > 3)) {
  5012.         Tcl_SetResult(interp, "Wrong # args. PDF_image_imageno_set { PDF_image * } { int  } ",TCL_STATIC);
  5013.         return TCL_ERROR;
  5014.     }
  5015.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_image_p")) {
  5016.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_image_imageno_set. Expected _PDF_image_p, received ", TCL_STATIC);
  5017.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  5018.         return TCL_ERROR;
  5019.     }
  5020.     _arg1 = (int ) atol(argv[2]);
  5021.     _result = (int )PDF_image_t_imageno_set(_arg0,_arg1);
  5022.     sprintf(interp->result,"%ld", (long) _result);
  5023.     return TCL_OK;
  5024. }
  5025. #define PDF_image_t_imageno_get(_swigobj) ((int ) _swigobj->imageno)
  5026. static int _wrap_PDF_image_imageno_get(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  5027.  
  5028.     int  _result;
  5029.     PDF_image * _arg0;
  5030.  
  5031.     clientData = clientData; argv = argv;
  5032.     if ((argc < 2) || (argc > 2)) {
  5033.         Tcl_SetResult(interp, "Wrong # args. PDF_image_imageno_get { PDF_image * } ",TCL_STATIC);
  5034.         return TCL_ERROR;
  5035.     }
  5036.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_image_p")) {
  5037.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_image_imageno_get. Expected _PDF_image_p, received ", TCL_STATIC);
  5038.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  5039.         return TCL_ERROR;
  5040.     }
  5041.     _result = (int )PDF_image_t_imageno_get(_arg0);
  5042.     sprintf(interp->result,"%ld", (long) _result);
  5043.     return TCL_OK;
  5044. }
  5045. #define PDF_image_t_no_set(_swigobj,_swigval) (_swigobj->no = _swigval,_swigval)
  5046. static int _wrap_PDF_image_no_set(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  5047.  
  5048.     int  _result;
  5049.     PDF_image * _arg0;
  5050.     int  _arg1;
  5051.  
  5052.     clientData = clientData; argv = argv;
  5053.     if ((argc < 3) || (argc > 3)) {
  5054.         Tcl_SetResult(interp, "Wrong # args. PDF_image_no_set { PDF_image * } { int  } ",TCL_STATIC);
  5055.         return TCL_ERROR;
  5056.     }
  5057.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_image_p")) {
  5058.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_image_no_set. Expected _PDF_image_p, received ", TCL_STATIC);
  5059.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  5060.         return TCL_ERROR;
  5061.     }
  5062.     _arg1 = (int ) atol(argv[2]);
  5063.     _result = (int )PDF_image_t_no_set(_arg0,_arg1);
  5064.     sprintf(interp->result,"%ld", (long) _result);
  5065.     return TCL_OK;
  5066. }
  5067. #define PDF_image_t_no_get(_swigobj) ((int ) _swigobj->no)
  5068. static int _wrap_PDF_image_no_get(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  5069.  
  5070.     int  _result;
  5071.     PDF_image * _arg0;
  5072.  
  5073.     clientData = clientData; argv = argv;
  5074.     if ((argc < 2) || (argc > 2)) {
  5075.         Tcl_SetResult(interp, "Wrong # args. PDF_image_no_get { PDF_image * } ",TCL_STATIC);
  5076.         return TCL_ERROR;
  5077.     }
  5078.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_image_p")) {
  5079.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_image_no_get. Expected _PDF_image_p, received ", TCL_STATIC);
  5080.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  5081.         return TCL_ERROR;
  5082.     }
  5083.     _result = (int )PDF_image_t_no_get(_arg0);
  5084.     sprintf(interp->result,"%ld", (long) _result);
  5085.     return TCL_OK;
  5086. }
  5087. #define PDF_image_t_src_set(_swigobj,_swigval) (_swigobj->src = *(_swigval),_swigval)
  5088. static int _wrap_PDF_image_src_set(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  5089.  
  5090.     PDF_data_source * _result;
  5091.     PDF_image * _arg0;
  5092.     PDF_data_source * _arg1;
  5093.  
  5094.     clientData = clientData; argv = argv;
  5095.     if ((argc < 3) || (argc > 3)) {
  5096.         Tcl_SetResult(interp, "Wrong # args. PDF_image_src_set { PDF_image * } { PDF_data_source * } ",TCL_STATIC);
  5097.         return TCL_ERROR;
  5098.     }
  5099.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_image_p")) {
  5100.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_image_src_set. Expected _PDF_image_p, received ", TCL_STATIC);
  5101.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  5102.         return TCL_ERROR;
  5103.     }
  5104.     if (SWIG_GetPtr(argv[2],(void **) &_arg1,"_PDF_data_source_p")) {
  5105.         Tcl_SetResult(interp, "Type error in argument 2 of PDF_image_src_set. Expected _PDF_data_source_p, received ", TCL_STATIC);
  5106.         Tcl_AppendResult(interp, argv[2], (char *) NULL);
  5107.         return TCL_ERROR;
  5108.     }
  5109.     _result = (PDF_data_source *)PDF_image_t_src_set(_arg0,_arg1);
  5110.     SWIG_MakePtr(interp->result, (void *) _result,"_PDF_data_source_p");
  5111.     return TCL_OK;
  5112. }
  5113. #define PDF_image_t_src_get(_swigobj) (&_swigobj->src)
  5114. static int _wrap_PDF_image_src_get(ClientData clientData, Tcl_Interp *interp, int argc, char *argv[]) {
  5115.  
  5116.     PDF_data_source * _result;
  5117.     PDF_image * _arg0;
  5118.  
  5119.     clientData = clientData; argv = argv;
  5120.     if ((argc < 2) || (argc > 2)) {
  5121.         Tcl_SetResult(interp, "Wrong # args. PDF_image_src_get { PDF_image * } ",TCL_STATIC);
  5122.         return TCL_ERROR;
  5123.     }
  5124.     if (SWIG_GetPtr(argv[1],(void **) &_arg0,"_PDF_image_p")) {
  5125.         Tcl_SetResult(interp, "Type error in argument 1 of PDF_image_src_get. Expected _PDF_image_p, received ", TCL_STATIC);
  5126.         Tcl_AppendResult(interp, argv[1], (char *) NULL);
  5127.         return TCL_ERROR;
  5128.     }
  5129.     _result = (PDF_data_source *)PDF_image_t_src_get(_arg0);
  5130.     SWIG_MakePtr(interp->result, (void *) _result,"_PDF_data_source_p");
  5131.     return TCL_OK;
  5132. }
  5133. /* methodcmd.swg : Tcl method invocation */
  5134.  
  5135. static int TclPDF_imageMethodCmd(ClientData clientData, Tcl_Interp *interp, int argc, char **argv) {
  5136.     int (*cmd)(ClientData, Tcl_Interp *, int, char **) = 0;
  5137.     char temp[256], *oldarg;
  5138.     int rcode;
  5139.     int length;
  5140.     char c;
  5141.  
  5142.     if (argc < 2) {
  5143.         Tcl_SetResult(interp,"PDF_image methods : { cget configure  }",TCL_STATIC);
  5144.         return TCL_ERROR;
  5145.     }
  5146.     c = argv[1][0];
  5147.     length = strlen(argv[1]);
  5148.     SWIG_MakePtr(temp,(void *) clientData, "_PDF_image_p");
  5149.     if (0);
  5150.     
  5151.     else if ((c == 'c') && (strncmp(argv[1],"configure",length) == 0) && (length >= 2)) {
  5152.       int i = 2;
  5153.       cmd = 0;
  5154.       while (i+1 < argc) {
  5155.                     if (strcmp(argv[i],"-fp") == 0) {
  5156.                     cmd = _wrap_PDF_image_fp_set;
  5157.                 }  else if (strcmp(argv[i],"-filename") == 0) {
  5158.                     cmd = _wrap_PDF_image_filename_set;
  5159.                 }  else if (strcmp(argv[i],"-width") == 0) {
  5160.                     cmd = _wrap_PDF_image_width_set;
  5161.                 }  else if (strcmp(argv[i],"-height") == 0) {
  5162.                     cmd = _wrap_PDF_image_height_set;
  5163.                 }  else if (strcmp(argv[i],"-bpc") == 0) {
  5164.                     cmd = _wrap_PDF_image_bpc_set;
  5165.                 }  else if (strcmp(argv[i],"-components") == 0) {
  5166.                     cmd = _wrap_PDF_image_components_set;
  5167.                 }  else if (strcmp(argv[i],"-compression") == 0) {
  5168.                     cmd = _wrap_PDF_image_compression_set;
  5169.                 }  else if (strcmp(argv[i],"-colorspace") == 0) {
  5170.                     cmd = _wrap_PDF_image_colorspace_set;
  5171.                 }  else if (strcmp(argv[i],"-indexed") == 0) {
  5172.                     cmd = _wrap_PDF_image_indexed_set;
  5173.                 }  else if (strcmp(argv[i],"-BitPixel") == 0) {
  5174.                     cmd = _wrap_PDF_image_BitPixel_set;
  5175.                 }  else if (strcmp(argv[i],"-adobe") == 0) {
  5176.                     cmd = _wrap_PDF_image_adobe_set;
  5177.                 }  else if (strcmp(argv[i],"-startpos") == 0) {
  5178.                     cmd = _wrap_PDF_image_startpos_set;
  5179.                 }  else if (strcmp(argv[i],"-dpi") == 0) {
  5180.                     cmd = _wrap_PDF_image_dpi_set;
  5181.                 }  else if (strcmp(argv[i],"-Background") == 0) {
  5182.                     cmd = _wrap_PDF_image_Background_set;
  5183.                 }  else if (strcmp(argv[i],"-transparent") == 0) {
  5184.                     cmd = _wrap_PDF_image_transparent_set;
  5185.                 }  else if (strcmp(argv[i],"-delayTime") == 0) {
  5186.                     cmd = _wrap_PDF_image_delayTime_set;
  5187.                 }  else if (strcmp(argv[i],"-inputFlag") == 0) {
  5188.                     cmd = _wrap_PDF_image_inputFlag_set;
  5189.                 }  else if (strcmp(argv[i],"-disposal") == 0) {
  5190.                     cmd = _wrap_PDF_image_disposal_set;
  5191.                 }  else if (strcmp(argv[i],"-useGlobalColormap") == 0) {
  5192.                     cmd = _wrap_PDF_image_useGlobalColormap_set;
  5193.                 }  else if (strcmp(argv[i],"-bitPixel") == 0) {
  5194.                     cmd = _wrap_PDF_image_bitPixel_set;
  5195.                 }  else if (strcmp(argv[i],"-interlace") == 0) {
  5196.                     cmd = _wrap_PDF_image_interlace_set;
  5197.                 }  else if (strcmp(argv[i],"-imageno") == 0) {
  5198.                     cmd = _wrap_PDF_image_imageno_set;
  5199.                 }  else if (strcmp(argv[i],"-no") == 0) {
  5200.                     cmd = _wrap_PDF_image_no_set;
  5201.                 }  else if (strcmp(argv[i],"-src") == 0) {
  5202.                     cmd = _wrap_PDF_image_src_set;
  5203.                 } 
  5204.        if (cmd) {
  5205.          oldarg = argv[i];
  5206.          argv[i] = &temp[0];
  5207.          rcode = (*cmd)(clientData,interp,3,&argv[i-1]);
  5208.          argv[i] = oldarg;
  5209.          if (rcode == TCL_ERROR) return rcode;
  5210.          cmd = 0;
  5211.        } else {
  5212.          Tcl_SetResult(interp,"Invalid configure option. Must be { -fp -filename -width -height -bpc -components -compression -colorspace -indexed -BitPixel -adobe -startpos -dpi -Background -transparent -delayTime -inputFlag -disposal -useGlobalColormap -bitPixel -interlace -imageno -no -src  }",TCL_STATIC);
  5213.          return TCL_ERROR;
  5214.        }
  5215.     i+=2;
  5216.       }
  5217.       if ((i < argc) || (i == 2)) {
  5218.     Tcl_SetResult(interp,"{ -fp -filename -width -height -bpc -components -compression -colorspace -indexed -BitPixel -adobe -startpos -dpi -Background -transparent -delayTime -inputFlag -disposal -useGlobalColormap -bitPixel -interlace -imageno -no -src  }",TCL_STATIC);
  5219.     return TCL_ERROR;
  5220.       }
  5221.       return TCL_OK;
  5222.     } else if ((c == 'c') && (strncmp(argv[1],"cget",length) == 0) && (length >= 2)) {
  5223.             if (argc == 3) {
  5224.           if (0) {}
  5225.                           if (strcmp(argv[2],"-fp") == 0) {
  5226.                     cmd = _wrap_PDF_image_fp_get;
  5227.                 }  else if (strcmp(argv[2],"-filename") == 0) {
  5228.                     cmd = _wrap_PDF_image_filename_get;
  5229.                 }  else if (strcmp(argv[2],"-width") == 0) {
  5230.                     cmd = _wrap_PDF_image_width_get;
  5231.                 }  else if (strcmp(argv[2],"-height") == 0) {
  5232.                     cmd = _wrap_PDF_image_height_get;
  5233.                 }  else if (strcmp(argv[2],"-bpc") == 0) {
  5234.                     cmd = _wrap_PDF_image_bpc_get;
  5235.                 }  else if (strcmp(argv[2],"-components") == 0) {
  5236.                     cmd = _wrap_PDF_image_components_get;
  5237.                 }  else if (strcmp(argv[2],"-compression") == 0) {
  5238.                     cmd = _wrap_PDF_image_compression_get;
  5239.                 }  else if (strcmp(argv[2],"-colorspace") == 0) {
  5240.                     cmd = _wrap_PDF_image_colorspace_get;
  5241.                 }  else if (strcmp(argv[2],"-indexed") == 0) {
  5242.                     cmd = _wrap_PDF_image_indexed_get;
  5243.                 }  else if (strcmp(argv[2],"-BitPixel") == 0) {
  5244.                     cmd = _wrap_PDF_image_BitPixel_get;
  5245.                 }  else if (strcmp(argv[2],"-colormap") == 0) {
  5246.                     cmd = _wrap_PDF_image_colormap_get;
  5247.                 }  else if (strcmp(argv[2],"-adobe") == 0) {
  5248.                     cmd = _wrap_PDF_image_adobe_get;
  5249.                 }  else if (strcmp(argv[2],"-startpos") == 0) {
  5250.                     cmd = _wrap_PDF_image_startpos_get;
  5251.                 }  else if (strcmp(argv[2],"-dpi") == 0) {
  5252.                     cmd = _wrap_PDF_image_dpi_get;
  5253.                 }  else if (strcmp(argv[2],"-Background") == 0) {
  5254.                     cmd = _wrap_PDF_image_Background_get;
  5255.                 }  else if (strcmp(argv[2],"-transparent") == 0) {
  5256.                     cmd = _wrap_PDF_image_transparent_get;
  5257.                 }  else if (strcmp(argv[2],"-delayTime") == 0) {
  5258.                     cmd = _wrap_PDF_image_delayTime_get;
  5259.                 }  else if (strcmp(argv[2],"-inputFlag") == 0) {
  5260.                     cmd = _wrap_PDF_image_inputFlag_get;
  5261.                 }  else if (strcmp(argv[2],"-disposal") == 0) {
  5262.                     cmd = _wrap_PDF_image_disposal_get;
  5263.                 }  else if (strcmp(argv[2],"-useGlobalColormap") == 0) {
  5264.                     cmd = _wrap_PDF_image_useGlobalColormap_get;
  5265.                 }  else if (strcmp(argv[2],"-bitPixel") == 0) {
  5266.                     cmd = _wrap_PDF_image_bitPixel_get;
  5267.                 }  else if (strcmp(argv[2],"-interlace") == 0) {
  5268.                     cmd = _wrap_PDF_image_interlace_get;
  5269.                 }  else if (strcmp(argv[2],"-imageno") == 0) {
  5270.                     cmd = _wrap_PDF_image_imageno_get;
  5271.                 }  else if (strcmp(argv[2],"-no") == 0) {
  5272.                     cmd = _wrap_PDF_image_no_get;
  5273.                 }  else if (strcmp(argv[2],"-src") == 0) {
  5274.                     cmd = _wrap_PDF_image_src_get;
  5275.                 } 
  5276.          else if (strcmp(argv[2],"-this") == 0) {
  5277.                    SWIG_MakePtr(interp->result,(void *) clientData, "_PDF_image_p");
  5278.                    return TCL_OK;
  5279.          }
  5280.           if (cmd) {
  5281.         oldarg = argv[2];
  5282.         argv[2] = &temp[0];
  5283.         rcode = (*cmd)(clientData,interp,argc-1,&argv[1]);
  5284.         argv[2] = oldarg;
  5285.         return rcode;
  5286.           } else {
  5287.         Tcl_SetResult(interp,"Invalid cget option. Must be { -this -fp -filename -width -height -bpc -components -compression -colorspace -indexed -BitPixel -colormap -adobe -startpos -dpi -Background -transparent -delayTime -inputFlag -disposal -useGlobalColormap -bitPixel -interlace -imageno -no -src  }",TCL_STATIC);
  5288.         return TCL_ERROR;
  5289.           }
  5290.         } else {
  5291.           Tcl_SetResult(interp,"{ -this -fp -filename -width -height -bpc -components -compression -colorspace -indexed -BitPixel -colormap -adobe -startpos -dpi -Background -transparent -delayTime -inputFlag -disposal -useGlobalColormap -bitPixel -interlace -imageno -no -src  }", TCL_STATIC);
  5292.           return TCL_ERROR;
  5293.         }
  5294.     }
  5295.     if (!cmd) {
  5296.         Tcl_SetResult(interp,"Invalid Method. Must be { cget configure }",TCL_STATIC);
  5297.         return TCL_ERROR;
  5298.     }
  5299.     oldarg = argv[1];
  5300.     argv[1] = &temp[0];
  5301.     rcode = (*cmd)(clientData,interp,argc,argv);
  5302.     argv[1] = oldarg;
  5303.     return rcode;
  5304. }
  5305. /* objcmd.swg : Tcl object creation */
  5306.  
  5307. static int TclPDF_imageCmd(ClientData clientData, Tcl_Interp *interp, int argc, char **argv) {
  5308.     void (*del)(ClientData) = 0;
  5309.     char *name = 0;
  5310.     int (*cmd)(ClientData, Tcl_Interp *, int, char **) = 0;
  5311.     PDF_image * newObj = 0;
  5312.     int firstarg = 0;
  5313.     int thisarg = 0;
  5314.     if (argc == 1) {
  5315.         cmd = 0;
  5316.     } else {
  5317.         if (strcmp(argv[1],"-this") == 0) thisarg = 2;
  5318.         else if (strcmp(argv[1],"-args") == 0) {
  5319.             firstarg = 1;
  5320.             cmd = 0;
  5321.         } else if (argc == 2) {
  5322.             firstarg = 1;
  5323.             name = argv[1];
  5324.             cmd = 0;
  5325.         } else if (argc >= 3) {
  5326.             name = argv[1];
  5327.             if (strcmp(argv[2],"-this") == 0) thisarg = 3;
  5328.             else {
  5329.                 firstarg = 1;
  5330.                 cmd = 0;
  5331.             }
  5332.         }
  5333.     }
  5334.     if (cmd) {
  5335.         int result;
  5336.         result = (*cmd)(clientData,interp,argc-firstarg,&argv[firstarg]);
  5337.         if (result == TCL_OK) {
  5338.             SWIG_GetPtr(interp->result,(void **) &newObj,"_PDF_image_p");
  5339.         } else { return result; }
  5340.         if (!name) name = interp->result;
  5341.         del = 0;
  5342.     } else if (thisarg > 0) { 
  5343.         if (thisarg < argc) {
  5344.             char *r;
  5345.             r = SWIG_GetPtr(argv[thisarg],(void **) &newObj,"_PDF_image_p");
  5346.             if (r) {
  5347.                 interp->result = "Type error. not a PDF_image object.";
  5348.                 return TCL_ERROR;
  5349.             }
  5350.             if (!name) name = argv[thisarg];
  5351.         /* Return value is same as pointer value */
  5352.         Tcl_SetResult(interp,argv[thisarg],TCL_VOLATILE);
  5353.         } else {
  5354.             interp->result = "wrong # args.";
  5355.             return TCL_ERROR;
  5356.         }
  5357.     } else {
  5358.         interp->result = "No constructor available.";
  5359.         return TCL_ERROR;
  5360.     }
  5361.     {
  5362.       Tcl_CmdInfo dummy;
  5363.       if (!Tcl_GetCommandInfo(interp,name,&dummy)) {
  5364.     Tcl_CreateCommand(interp,name, TclPDF_imageMethodCmd, (ClientData) newObj, del);
  5365.     return TCL_OK;
  5366.       } else {
  5367.     Tcl_SetResult(interp,"",TCL_VOLATILE);
  5368.     Tcl_AppendResult(interp,"Object ", name, " already exists!", (char *) NULL);
  5369.     return TCL_ERROR;
  5370.       }
  5371.     }
  5372. }
  5373.  
  5374.  
  5375. SWIGEXPORT(int,Pdflib_Init)(Tcl_Interp *interp) {
  5376.      if (interp == 0) 
  5377.          return TCL_ERROR;
  5378.  
  5379.     Tcl_PkgProvide(interp, "pdflib", "0.6");
  5380.      Tcl_LinkVar(interp, SWIG_prefix "PDFLIB_VERSION", (char *) &_wrap_const_PDFLIB_VERSION, TCL_LINK_STRING | TCL_LINK_READ_ONLY);
  5381.      Tcl_LinkVar(interp, SWIG_prefix "PDF_DEFAULT_FONT_PATH", (char *) &_wrap_const_PDF_DEFAULT_FONT_PATH, TCL_LINK_STRING | TCL_LINK_READ_ONLY);
  5382.      Tcl_LinkVar(interp, SWIG_prefix "false", (char *) &_wrap_const_false, TCL_LINK_INT | TCL_LINK_READ_ONLY);
  5383.      Tcl_LinkVar(interp, SWIG_prefix "true", (char *) &_wrap_const_true, TCL_LINK_INT | TCL_LINK_READ_ONLY);
  5384.      Tcl_LinkVar(interp, SWIG_prefix "PDF_INFO", (char *) &_wrap_const_PDF_INFO, TCL_LINK_INT | TCL_LINK_READ_ONLY);
  5385.      Tcl_LinkVar(interp, SWIG_prefix "PDF_WARN", (char *) &_wrap_const_PDF_WARN, TCL_LINK_INT | TCL_LINK_READ_ONLY);
  5386.      Tcl_LinkVar(interp, SWIG_prefix "PDF_FATAL", (char *) &_wrap_const_PDF_FATAL, TCL_LINK_INT | TCL_LINK_READ_ONLY);
  5387.      Tcl_LinkVar(interp, SWIG_prefix "PDF_INTERNAL", (char *) &_wrap_const_PDF_INTERNAL, TCL_LINK_INT | TCL_LINK_READ_ONLY);
  5388.      Tcl_LinkVar(interp, SWIG_prefix "PDF1_0", (char *) &_wrap_const_PDF1_0, TCL_LINK_INT | TCL_LINK_READ_ONLY);
  5389.      Tcl_LinkVar(interp, SWIG_prefix "PDF1_1", (char *) &_wrap_const_PDF1_1, TCL_LINK_INT | TCL_LINK_READ_ONLY);
  5390.      Tcl_LinkVar(interp, SWIG_prefix "PDF1_2", (char *) &_wrap_const_PDF1_2, TCL_LINK_INT | TCL_LINK_READ_ONLY);
  5391.      Tcl_LinkVar(interp, SWIG_prefix "builtin", (char *) &_wrap_const_builtin, TCL_LINK_INT | TCL_LINK_READ_ONLY);
  5392.      Tcl_LinkVar(interp, SWIG_prefix "pdfdoc", (char *) &_wrap_const_pdfdoc, TCL_LINK_INT | TCL_LINK_READ_ONLY);
  5393.      Tcl_LinkVar(interp, SWIG_prefix "macroman", (char *) &_wrap_const_macroman, TCL_LINK_INT | TCL_LINK_READ_ONLY);
  5394.      Tcl_LinkVar(interp, SWIG_prefix "macexpert", (char *) &_wrap_const_macexpert, TCL_LINK_INT | TCL_LINK_READ_ONLY);
  5395.      Tcl_LinkVar(interp, SWIG_prefix "winansi", (char *) &_wrap_const_winansi, TCL_LINK_INT | TCL_LINK_READ_ONLY);
  5396.      Tcl_LinkVar(interp, SWIG_prefix "encoding_count", (char *) &_wrap_const_encoding_count, TCL_LINK_INT | TCL_LINK_READ_ONLY);
  5397.      Tcl_LinkVar(interp, SWIG_prefix "none", (char *) &_wrap_const_none, TCL_LINK_INT | TCL_LINK_READ_ONLY);
  5398.      Tcl_LinkVar(interp, SWIG_prefix "lzw", (char *) &_wrap_const_lzw, TCL_LINK_INT | TCL_LINK_READ_ONLY);
  5399.      Tcl_LinkVar(interp, SWIG_prefix "runlength", (char *) &_wrap_const_runlength, TCL_LINK_INT | TCL_LINK_READ_ONLY);
  5400.      Tcl_LinkVar(interp, SWIG_prefix "ccitt", (char *) &_wrap_const_ccitt, TCL_LINK_INT | TCL_LINK_READ_ONLY);
  5401.      Tcl_LinkVar(interp, SWIG_prefix "dct", (char *) &_wrap_const_dct, TCL_LINK_INT | TCL_LINK_READ_ONLY);
  5402.      Tcl_LinkVar(interp, SWIG_prefix "flate", (char *) &_wrap_const_flate, TCL_LINK_INT | TCL_LINK_READ_ONLY);
  5403.      Tcl_LinkVar(interp, SWIG_prefix "compression_count", (char *) &_wrap_const_compression_count, TCL_LINK_INT | TCL_LINK_READ_ONLY);
  5404.      Tcl_LinkVar(interp, SWIG_prefix "trans_none", (char *) &_wrap_const_trans_none, TCL_LINK_INT | TCL_LINK_READ_ONLY);
  5405.      Tcl_LinkVar(interp, SWIG_prefix "trans_split", (char *) &_wrap_const_trans_split, TCL_LINK_INT | TCL_LINK_READ_ONLY);
  5406.      Tcl_LinkVar(interp, SWIG_prefix "trans_blinds", (char *) &_wrap_const_trans_blinds, TCL_LINK_INT | TCL_LINK_READ_ONLY);
  5407.      Tcl_LinkVar(interp, SWIG_prefix "trans_box", (char *) &_wrap_const_trans_box, TCL_LINK_INT | TCL_LINK_READ_ONLY);
  5408.      Tcl_LinkVar(interp, SWIG_prefix "trans_wipe", (char *) &_wrap_const_trans_wipe, TCL_LINK_INT | TCL_LINK_READ_ONLY);
  5409.      Tcl_LinkVar(interp, SWIG_prefix "trans_dissolve", (char *) &_wrap_const_trans_dissolve, TCL_LINK_INT | TCL_LINK_READ_ONLY);
  5410.      Tcl_LinkVar(interp, SWIG_prefix "trans_glitter", (char *) &_wrap_const_trans_glitter, TCL_LINK_INT | TCL_LINK_READ_ONLY);
  5411.      Tcl_LinkVar(interp, SWIG_prefix "trans_replace", (char *) &_wrap_const_trans_replace, TCL_LINK_INT | TCL_LINK_READ_ONLY);
  5412.      Tcl_LinkVar(interp, SWIG_prefix "transition_count", (char *) &_wrap_const_transition_count, TCL_LINK_INT | TCL_LINK_READ_ONLY);
  5413.      Tcl_LinkVar(interp, SWIG_prefix "DeviceGray", (char *) &_wrap_const_DeviceGray, TCL_LINK_INT | TCL_LINK_READ_ONLY);
  5414.      Tcl_LinkVar(interp, SWIG_prefix "DeviceRGB", (char *) &_wrap_const_DeviceRGB, TCL_LINK_INT | TCL_LINK_READ_ONLY);
  5415.      Tcl_LinkVar(interp, SWIG_prefix "DeviceCMYK", (char *) &_wrap_const_DeviceCMYK, TCL_LINK_INT | TCL_LINK_READ_ONLY);
  5416.      Tcl_LinkVar(interp, SWIG_prefix "CalGray", (char *) &_wrap_const_CalGray, TCL_LINK_INT | TCL_LINK_READ_ONLY);
  5417.      Tcl_LinkVar(interp, SWIG_prefix "CalRGB", (char *) &_wrap_const_CalRGB, TCL_LINK_INT | TCL_LINK_READ_ONLY);
  5418.      Tcl_LinkVar(interp, SWIG_prefix "Lab", (char *) &_wrap_const_Lab, TCL_LINK_INT | TCL_LINK_READ_ONLY);
  5419.      Tcl_LinkVar(interp, SWIG_prefix "Indexed", (char *) &_wrap_const_Indexed, TCL_LINK_INT | TCL_LINK_READ_ONLY);
  5420.      Tcl_LinkVar(interp, SWIG_prefix "Pattern", (char *) &_wrap_const_Pattern, TCL_LINK_INT | TCL_LINK_READ_ONLY);
  5421.      Tcl_LinkVar(interp, SWIG_prefix "Separation", (char *) &_wrap_const_Separation, TCL_LINK_INT | TCL_LINK_READ_ONLY);
  5422.      Tcl_LinkVar(interp, SWIG_prefix "colorspace_count", (char *) &_wrap_const_colorspace_count, TCL_LINK_INT | TCL_LINK_READ_ONLY);
  5423.      Tcl_CreateCommand(interp, SWIG_prefix "a0_set", _wrap_a0_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5424.      Tcl_CreateCommand(interp, SWIG_prefix "a0_get", _wrap_a0_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5425.      Tcl_CreateCommand(interp, SWIG_prefix "a1_set", _wrap_a1_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5426.      Tcl_CreateCommand(interp, SWIG_prefix "a1_get", _wrap_a1_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5427.      Tcl_CreateCommand(interp, SWIG_prefix "a2_set", _wrap_a2_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5428.      Tcl_CreateCommand(interp, SWIG_prefix "a2_get", _wrap_a2_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5429.      Tcl_CreateCommand(interp, SWIG_prefix "a3_set", _wrap_a3_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5430.      Tcl_CreateCommand(interp, SWIG_prefix "a3_get", _wrap_a3_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5431.      Tcl_CreateCommand(interp, SWIG_prefix "a4_set", _wrap_a4_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5432.      Tcl_CreateCommand(interp, SWIG_prefix "a4_get", _wrap_a4_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5433.      Tcl_CreateCommand(interp, SWIG_prefix "a5_set", _wrap_a5_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5434.      Tcl_CreateCommand(interp, SWIG_prefix "a5_get", _wrap_a5_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5435.      Tcl_CreateCommand(interp, SWIG_prefix "a6_set", _wrap_a6_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5436.      Tcl_CreateCommand(interp, SWIG_prefix "a6_get", _wrap_a6_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5437.      Tcl_CreateCommand(interp, SWIG_prefix "b5_set", _wrap_b5_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5438.      Tcl_CreateCommand(interp, SWIG_prefix "b5_get", _wrap_b5_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5439.      Tcl_CreateCommand(interp, SWIG_prefix "letter_set", _wrap_letter_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5440.      Tcl_CreateCommand(interp, SWIG_prefix "letter_get", _wrap_letter_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5441.      Tcl_CreateCommand(interp, SWIG_prefix "legal_set", _wrap_legal_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5442.      Tcl_CreateCommand(interp, SWIG_prefix "legal_get", _wrap_legal_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5443.      Tcl_CreateCommand(interp, SWIG_prefix "ledger_set", _wrap_ledger_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5444.      Tcl_CreateCommand(interp, SWIG_prefix "ledger_get", _wrap_ledger_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5445.      Tcl_CreateCommand(interp, SWIG_prefix "p11x17_set", _wrap_p11x17_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5446.      Tcl_CreateCommand(interp, SWIG_prefix "p11x17_get", _wrap_p11x17_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5447.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_get_info", _wrap_PDF_get_info, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5448.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_open", _wrap_PDF_open, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5449.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_close", _wrap_PDF_close, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5450.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_begin_page", _wrap_PDF_begin_page, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5451.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_end_page", _wrap_PDF_end_page, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5452.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_set_transition", _wrap_PDF_set_transition, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5453.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_set_duration", _wrap_PDF_set_duration, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5454.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_malloc", _wrap_PDF_malloc, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5455.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_free", _wrap_PDF_free, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5456.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_show", _wrap_PDF_show, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5457.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_show_xy", _wrap_PDF_show_xy, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5458.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_set_font", _wrap_PDF_set_font, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5459.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_set_leading", _wrap_PDF_set_leading, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5460.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_set_text_rise", _wrap_PDF_set_text_rise, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5461.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_set_horiz_scaling", _wrap_PDF_set_horiz_scaling, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5462.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_set_text_rendering", _wrap_PDF_set_text_rendering, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5463.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_set_text_matrix", _wrap_PDF_set_text_matrix, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5464.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_set_text_pos", _wrap_PDF_set_text_pos, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5465.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_set_char_spacing", _wrap_PDF_set_char_spacing, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5466.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_set_word_spacing", _wrap_PDF_set_word_spacing, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5467.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_continue_text", _wrap_PDF_continue_text, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5468.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_save", _wrap_PDF_save, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5469.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_restore", _wrap_PDF_restore, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5470.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_translate", _wrap_PDF_translate, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5471.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_scale", _wrap_PDF_scale, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5472.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_rotate", _wrap_PDF_rotate, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5473.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_setdash", _wrap_PDF_setdash, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5474.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_setpolydash", _wrap_PDF_setpolydash, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5475.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_setflat", _wrap_PDF_setflat, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5476.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_setlinejoin", _wrap_PDF_setlinejoin, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5477.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_setlinecap", _wrap_PDF_setlinecap, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5478.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_setmiterlimit", _wrap_PDF_setmiterlimit, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5479.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_setlinewidth", _wrap_PDF_setlinewidth, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5480.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_setgray_fill", _wrap_PDF_setgray_fill, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5481.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_setgray_stroke", _wrap_PDF_setgray_stroke, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5482.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_setgray", _wrap_PDF_setgray, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5483.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_setrgbcolor_fill", _wrap_PDF_setrgbcolor_fill, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5484.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_setrgbcolor_stroke", _wrap_PDF_setrgbcolor_stroke, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5485.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_setrgbcolor", _wrap_PDF_setrgbcolor, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5486.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_moveto", _wrap_PDF_moveto, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5487.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_lineto", _wrap_PDF_lineto, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5488.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_curveto", _wrap_PDF_curveto, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5489.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_circle", _wrap_PDF_circle, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5490.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_arc", _wrap_PDF_arc, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5491.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_rect", _wrap_PDF_rect, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5492.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_closepath", _wrap_PDF_closepath, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5493.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_stroke", _wrap_PDF_stroke, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5494.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_closepath_stroke", _wrap_PDF_closepath_stroke, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5495.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_fill", _wrap_PDF_fill, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5496.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_fill_stroke", _wrap_PDF_fill_stroke, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5497.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_closepath_fill_stroke", _wrap_PDF_closepath_fill_stroke, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5498.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_endpath", _wrap_PDF_endpath, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5499.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_clip", _wrap_PDF_clip, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5500.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_place_image", _wrap_PDF_place_image, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5501.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_place_inline_image", _wrap_PDF_place_inline_image, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5502.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_put_image", _wrap_PDF_put_image, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5503.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_execute_image", _wrap_PDF_execute_image, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5504.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_close_image", _wrap_PDF_close_image, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5505.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_open_JPEG", _wrap_PDF_open_JPEG, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5506.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_close_JPEG", _wrap_PDF_close_JPEG, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5507.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_open_TIFF", _wrap_PDF_open_TIFF, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5508.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_close_TIFF", _wrap_PDF_close_TIFF, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5509.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_open_GIF", _wrap_PDF_open_GIF, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5510.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_close_GIF", _wrap_PDF_close_GIF, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5511.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_data_source_from_buf", _wrap_PDF_data_source_from_buf, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5512.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_stringwidth", _wrap_PDF_stringwidth, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5513.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_add_outline", _wrap_PDF_add_outline, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5514.      Tcl_CreateCommand(interp, SWIG_prefix "fopen", _wrap_fopen, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5515.      Tcl_CreateCommand(interp, SWIG_prefix "fclose", _wrap_fclose, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5516.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_pagesize_width_set", _wrap_PDF_pagesize_width_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5517.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_pagesize_width_get", _wrap_PDF_pagesize_width_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5518.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_pagesize_height_set", _wrap_PDF_pagesize_height_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5519.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_pagesize_height_get", _wrap_PDF_pagesize_height_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5520.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_pagesize",TclPDF_pagesizeCmd, (ClientData) NULL, NULL);
  5521.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_info_binary_mode_set", _wrap_PDF_info_binary_mode_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5522.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_info_binary_mode_get", _wrap_PDF_info_binary_mode_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5523.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_info_required_compatibility_set", _wrap_PDF_info_required_compatibility_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5524.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_info_required_compatibility_get", _wrap_PDF_info_required_compatibility_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5525.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_info_Keywords_set", _wrap_PDF_info_Keywords_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5526.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_info_Keywords_get", _wrap_PDF_info_Keywords_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5527.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_info_Subject_set", _wrap_PDF_info_Subject_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5528.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_info_Subject_get", _wrap_PDF_info_Subject_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5529.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_info_ModDate_set", _wrap_PDF_info_ModDate_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5530.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_info_ModDate_get", _wrap_PDF_info_ModDate_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5531.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_info_Title_set", _wrap_PDF_info_Title_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5532.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_info_Title_get", _wrap_PDF_info_Title_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5533.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_info_CreationDate_set", _wrap_PDF_info_CreationDate_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5534.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_info_CreationDate_get", _wrap_PDF_info_CreationDate_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5535.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_info_Creator_set", _wrap_PDF_info_Creator_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5536.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_info_Creator_get", _wrap_PDF_info_Creator_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5537.      Tcl_LinkVar(interp, SWIG_prefix "PDF_info_Producer", (char *) &_wrap_const_PDF_info_Producer, TCL_LINK_STRING | TCL_LINK_READ_ONLY);
  5538.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_info_Author_set", _wrap_PDF_info_Author_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5539.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_info_Author_get", _wrap_PDF_info_Author_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5540.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_info_fontpath_set", _wrap_PDF_info_fontpath_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5541.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_info_fontpath_get", _wrap_PDF_info_fontpath_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5542.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_info",TclPDF_infoCmd, (ClientData) NULL, NULL);
  5543.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_matrix_a_set", _wrap_PDF_matrix_a_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5544.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_matrix_a_get", _wrap_PDF_matrix_a_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5545.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_matrix_b_set", _wrap_PDF_matrix_b_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5546.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_matrix_b_get", _wrap_PDF_matrix_b_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5547.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_matrix_c_set", _wrap_PDF_matrix_c_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5548.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_matrix_c_get", _wrap_PDF_matrix_c_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5549.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_matrix_d_set", _wrap_PDF_matrix_d_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5550.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_matrix_d_get", _wrap_PDF_matrix_d_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5551.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_matrix_e_set", _wrap_PDF_matrix_e_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5552.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_matrix_e_get", _wrap_PDF_matrix_e_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5553.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_matrix_f_set", _wrap_PDF_matrix_f_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5554.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_matrix_f_get", _wrap_PDF_matrix_f_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5555.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_matrix",TclPDF_matrixCmd, (ClientData) NULL, NULL);
  5556.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_data_source_s_next_byte_set", _wrap_PDF_data_source_s_next_byte_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5557.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_data_source_s_next_byte_get", _wrap_PDF_data_source_s_next_byte_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5558.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_data_source_s_bytes_available_set", _wrap_PDF_data_source_s_bytes_available_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5559.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_data_source_s_bytes_available_get", _wrap_PDF_data_source_s_bytes_available_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5560.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_data_source_s_buffer_start_set", _wrap_PDF_data_source_s_buffer_start_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5561.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_data_source_s_buffer_start_get", _wrap_PDF_data_source_s_buffer_start_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5562.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_data_source_s_buffer_length_set", _wrap_PDF_data_source_s_buffer_length_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5563.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_data_source_s_buffer_length_get", _wrap_PDF_data_source_s_buffer_length_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5564.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_data_source_s_private_data_set", _wrap_PDF_data_source_s_private_data_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5565.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_data_source_s_private_data_get", _wrap_PDF_data_source_s_private_data_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5566.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_data_source_s",TclPDF_data_source_sCmd, (ClientData) NULL, NULL);
  5567.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_image_fp_set", _wrap_PDF_image_fp_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5568.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_image_fp_get", _wrap_PDF_image_fp_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5569.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_image_filename_set", _wrap_PDF_image_filename_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5570.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_image_filename_get", _wrap_PDF_image_filename_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5571.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_image_width_set", _wrap_PDF_image_width_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5572.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_image_width_get", _wrap_PDF_image_width_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5573.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_image_height_set", _wrap_PDF_image_height_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5574.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_image_height_get", _wrap_PDF_image_height_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5575.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_image_bpc_set", _wrap_PDF_image_bpc_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5576.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_image_bpc_get", _wrap_PDF_image_bpc_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5577.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_image_components_set", _wrap_PDF_image_components_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5578.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_image_components_get", _wrap_PDF_image_components_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5579.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_image_compression_set", _wrap_PDF_image_compression_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5580.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_image_compression_get", _wrap_PDF_image_compression_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5581.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_image_colorspace_set", _wrap_PDF_image_colorspace_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5582.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_image_colorspace_get", _wrap_PDF_image_colorspace_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5583.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_image_indexed_set", _wrap_PDF_image_indexed_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5584.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_image_indexed_get", _wrap_PDF_image_indexed_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5585.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_image_BitPixel_set", _wrap_PDF_image_BitPixel_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5586.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_image_BitPixel_get", _wrap_PDF_image_BitPixel_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5587.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_image_colormap_get", _wrap_PDF_image_colormap_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5588.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_image_adobe_set", _wrap_PDF_image_adobe_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5589.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_image_adobe_get", _wrap_PDF_image_adobe_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5590.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_image_startpos_set", _wrap_PDF_image_startpos_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5591.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_image_startpos_get", _wrap_PDF_image_startpos_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5592.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_image_dpi_set", _wrap_PDF_image_dpi_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5593.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_image_dpi_get", _wrap_PDF_image_dpi_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5594.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_image_Background_set", _wrap_PDF_image_Background_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5595.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_image_Background_get", _wrap_PDF_image_Background_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5596.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_image_transparent_set", _wrap_PDF_image_transparent_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5597.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_image_transparent_get", _wrap_PDF_image_transparent_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5598.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_image_delayTime_set", _wrap_PDF_image_delayTime_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5599.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_image_delayTime_get", _wrap_PDF_image_delayTime_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5600.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_image_inputFlag_set", _wrap_PDF_image_inputFlag_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5601.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_image_inputFlag_get", _wrap_PDF_image_inputFlag_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5602.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_image_disposal_set", _wrap_PDF_image_disposal_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5603.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_image_disposal_get", _wrap_PDF_image_disposal_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5604.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_image_useGlobalColormap_set", _wrap_PDF_image_useGlobalColormap_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5605.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_image_useGlobalColormap_get", _wrap_PDF_image_useGlobalColormap_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5606.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_image_bitPixel_set", _wrap_PDF_image_bitPixel_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5607.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_image_bitPixel_get", _wrap_PDF_image_bitPixel_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5608.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_image_interlace_set", _wrap_PDF_image_interlace_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5609.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_image_interlace_get", _wrap_PDF_image_interlace_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5610.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_image_imageno_set", _wrap_PDF_image_imageno_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5611.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_image_imageno_get", _wrap_PDF_image_imageno_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5612.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_image_no_set", _wrap_PDF_image_no_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5613.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_image_no_get", _wrap_PDF_image_no_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5614.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_image_src_set", _wrap_PDF_image_src_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5615.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_image_src_get", _wrap_PDF_image_src_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  5616.      Tcl_CreateCommand(interp, SWIG_prefix "PDF_image",TclPDF_imageCmd, (ClientData) NULL, NULL);
  5617. /*
  5618.  * These are the pointer type-equivalency mappings. 
  5619.  * (Used by the SWIG pointer type-checker).
  5620.  */
  5621.      SWIG_RegisterMapping("_signed_long","_long",0);
  5622.      SWIG_RegisterMapping("_struct_PDF_s","_PDF",0);
  5623.      SWIG_RegisterMapping("_struct_PDF_data_source_s","_PDF_data_source_s",0);
  5624.      SWIG_RegisterMapping("_struct_PDF_data_source_s","_PDF_data_source",0);
  5625.      SWIG_RegisterMapping("_byte","_unsigned_char",0);
  5626.      SWIG_RegisterMapping("_char_pp","_PDF_encodingvector",0);
  5627.      SWIG_RegisterMapping("_long","_unsigned_long",0);
  5628.      SWIG_RegisterMapping("_long","_signed_long",0);
  5629.      SWIG_RegisterMapping("_PDF","_struct_PDF_s",0);
  5630.      SWIG_RegisterMapping("_struct_PDF_image_t","_PDF_image",0);
  5631.      SWIG_RegisterMapping("_struct_PDF_image_t","_PDF_image_t",0);
  5632.      SWIG_RegisterMapping("_PDF_data_source","_struct_PDF_data_source_s",0);
  5633.      SWIG_RegisterMapping("_PDF_image","_struct_PDF_image_t",0);
  5634.      SWIG_RegisterMapping("_PDF_image","_PDF_image_t",0);
  5635.      SWIG_RegisterMapping("_unsigned_long","_long",0);
  5636.      SWIG_RegisterMapping("_pdf_colormap","_byte_p",0);
  5637.      SWIG_RegisterMapping("_PDF_encodingvector","_char_pp",0);
  5638.      SWIG_RegisterMapping("_signed_int","_int",0);
  5639.      SWIG_RegisterMapping("_unsigned_short","_short",0);
  5640.      SWIG_RegisterMapping("_signed_short","_short",0);
  5641.      SWIG_RegisterMapping("_unsigned_char","_byte",0);
  5642.      SWIG_RegisterMapping("_unsigned_int","_int",0);
  5643.      SWIG_RegisterMapping("_short","_unsigned_short",0);
  5644.      SWIG_RegisterMapping("_short","_signed_short",0);
  5645.      SWIG_RegisterMapping("_int","_unsigned_int",0);
  5646.      SWIG_RegisterMapping("_int","_signed_int",0);
  5647.      SWIG_RegisterMapping("_PDF_data_source_s","_struct_PDF_data_source_s",0);
  5648.      SWIG_RegisterMapping("_PDF_image_t","_PDF_image",0);
  5649.      SWIG_RegisterMapping("_PDF_image_t","_struct_PDF_image_t",0);
  5650.      SWIG_RegisterMapping("_byte_p","_pdf_colormap",0);
  5651.     {
  5652.         char cmd[] = "PDF_pagesize a0 -this [a0_get ]";
  5653.         Tcl_GlobalEval(interp,cmd);
  5654.     }
  5655.     {
  5656.         char cmd[] = "PDF_pagesize a1 -this [a1_get ]";
  5657.         Tcl_GlobalEval(interp,cmd);
  5658.     }
  5659.     {
  5660.         char cmd[] = "PDF_pagesize a2 -this [a2_get ]";
  5661.         Tcl_GlobalEval(interp,cmd);
  5662.     }
  5663.     {
  5664.         char cmd[] = "PDF_pagesize a3 -this [a3_get ]";
  5665.         Tcl_GlobalEval(interp,cmd);
  5666.     }
  5667.     {
  5668.         char cmd[] = "PDF_pagesize a4 -this [a4_get ]";
  5669.         Tcl_GlobalEval(interp,cmd);
  5670.     }
  5671.     {
  5672.         char cmd[] = "PDF_pagesize a5 -this [a5_get ]";
  5673.         Tcl_GlobalEval(interp,cmd);
  5674.     }
  5675.     {
  5676.         char cmd[] = "PDF_pagesize a6 -this [a6_get ]";
  5677.         Tcl_GlobalEval(interp,cmd);
  5678.     }
  5679.     {
  5680.         char cmd[] = "PDF_pagesize b5 -this [b5_get ]";
  5681.         Tcl_GlobalEval(interp,cmd);
  5682.     }
  5683.     {
  5684.         char cmd[] = "PDF_pagesize letter -this [letter_get ]";
  5685.         Tcl_GlobalEval(interp,cmd);
  5686.     }
  5687.     {
  5688.         char cmd[] = "PDF_pagesize legal -this [legal_get ]";
  5689.         Tcl_GlobalEval(interp,cmd);
  5690.     }
  5691.     {
  5692.         char cmd[] = "PDF_pagesize ledger -this [ledger_get ]";
  5693.         Tcl_GlobalEval(interp,cmd);
  5694.     }
  5695.     {
  5696.         char cmd[] = "PDF_pagesize p11x17 -this [p11x17_get ]";
  5697.         Tcl_GlobalEval(interp,cmd);
  5698.     }
  5699.      return TCL_OK;
  5700. }
  5701.